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CHAPTER  1 


INTRODUCTION 


The  Ada  implementation  described  above  was  tested  according  to  the 
Ada  Validation  Procedures  [Pro90]  against  the  Ada  Standard  [Ada83] 
using  the  current  Ada  Compiler  Validation  Capability  (ACVC) .  This 
Validation  Siammary  Report  (VSR)  gives  an  account  of  the  testing  of 
this  Ada  implementation.  For  any  technical  terms  used  in  this 
report,  the  reader  is  referred  to  [Pro90] .  A  detailed  description 
of  the  ACVC  may  be  found  in  the  current  ACVC  User's  Guide  [UG89], 


1.1  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the 
Ada  Certification  Body  may  make  full  and  free  public  disclosure  of 
this  report.  In  the  United  States,  this  is  provided  in  accordance 
with  the  "Freedom  of  Information  Act"  (5  U.S.C.  #552).  The  results 
of  this  validation  apply  only  to  the  computers,  operating  systems, 
and  compiler  versions  identified  in  this  report. 

The  organizations  represented  on  the  signature  page  of  this  report 
do  not  represent  or  warrant  that  all  statements  set  forth  in  this 
report  are  accurate  and  complete,  or  that  the  subject 
implementation  has  no  nonconformities  to  the  Ada  Standard  other 
than  those  presented.  Copies  of  this  report  are  available  to  the 
public  from  the  AVF  which  performed  this  validation  or  from: 

National  Technical  Information  Service 
5285  Port  Royal  Road 
Springfield  VA  22161 

Questions  regarding  this  report  or  the  validation  test  results 
should  be  directed  to  the  AVF  which  performed  this  validation  or 


Ada  Validation  Organization 
Computer  and  Software  Engineering  Division 
Institute  for  Defense  Analyses 
1801  North  Beauregard  Street 
Alexandria  VA  22311-1772 


1.2  REFERENCES 

[ Adas 3 ]  Reference  Manual  for  the  Ada  Programming  Language , 

ANSI/MIL-STD-1815A,  February  1983  and  ISO  8652-1987. 


[Pro90]  Ada  Compiler  Validation  Procedures.  Version  2.1,  Ada  Joint 
Program  Office,  August  1990. 


[UG89]  Ada  Compiler  Validation  Capability  User's  Guide.  21  June 
1989. 


1.3  ACVC  TEST  CLASSES 

Compliance  of  Ada  implementations  is  tested  by  means  of  the  ACVC. 
The  ACVC  contains  a  collection  of  test  programs  structured  into  six 
test  classes:  A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test 
name  identifies  the  class  to  which  it  belongs.  Class  A,  C,  D,  and 
E  tests  are  executable.  Class  B  and  class  L  tests  are  expected  to 
produce  errors  at  compile  time  and  link  time,  respectively. 

The  executable  tests  are  written  in  a  self-checking  manner  and 
produce  a  PASSED,  FAILED,  or  NOT  APPLICABLE  message  indicating  the 
result  when  they  are  executed.  Three  Ada  library  units,  the 
packages  REPORT  and  SPPRT13 ,  and  the  procedure  CHECK_FILE  are  used 
for  this  purpose.  The  package  REPORT  also  provides  a  set  of 
identity  functions  used  to  defeat  some  compiler  optimizations 
allowed  by  the  Ada  Standard  that  would  circumvent  a  test  objective. 
The  package  SPPRT13  is  used  by  many  tests  for  Chapter  13  of  the  Ada 
Standard.  The  procedure  CHECK_FILE  is  used  to  check  the  contents 
of  text  files  written  by  some  of  the  Class  C  tests  for  Chapter  14 
of  the  Ada  Standard.  The  operation  of  REPORT  and  CHECK_FILE  is 
checked  by  a  set  of  executable  tests.  If  these  units  are  not 
operating  correctly,  validation  testing  is  discontinued,  class  B 
tests  check  that  a  compiler  detects  illegal  language  usage.  Class 
B  tests  are  not  executable.  Each  test  in  this  class  is  compiled 
and  the  resulting  compilation  listing  is  examined  to  verify  that 
all  violations  of  the  Ada  Standard  are  detected.  Some  of  the  class 
B  tests  contain  legal  Ada  code  which  must  not  be  flagged  illegal  by 
the  compiler.  This  behavior  is  also  verified. 

Class  L  tests  check  that  an  Ada  implementation  correctly  detects 
violation  of  the  Ada  Standard  involving  multiple,  separately 
compiled  units.  Errors  are  expected  at  link  time,  and  execution  is 
attempted. 

In  some  tests  of  the  ACVC,'  certain  macro  strings  have  to  be 
replaced  by  implementation-specific  values  —  for  example,  the 
largest  integer.  A  list  of  the  values  used  for  this  implementation 
is  provided  in  Appendix  A.  In  addition  to  these  anticipated  test 
modifications,  additional  changes  may  be  required  to  remove 
unforeseen  conflicts  between  the  tests  and  implementation-dependent 
characteristics.  The  modifications  required  for  this 
implementation  are  described  in  section  2.3. 

For  each  Ada  implementation,  a  customized  test  suite  is  produced  by 
the  AVF.  This  customization  consists  of  making  the  modifications 
described  in  the  preceding  paragraph,  removing  withdrawn  tests  (see 
section  2.1)  and,  possibly  some  inapplicable  tests  (see  Section  3.2 
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and  [UG89] ) . 


In  order  to  pass  an  ACVC  an  Ada  implementation  must  process  each 
test  of  the  customized  test  suite  according  to  the  Ada  Standard. 


1.4  DEFINITION  OF  TERMS 


Ada  Compiler  The  software  and  any  needed  hardware  that  have  to 
be  added  to  a  given  host  and  target  computer 
system  to  allow  transformation  of  Ada  programs 
into  executable  form  and  execution  thereof. 


Ada  Compiler 
Validation 
Capability 
(ACVC) 


The  means  for  testing  compliance  of  Ada 
implementations.  Validation  consisting  of  the 
test  suite,  the  support  programs,  the  ACVC 
Capability  user's  guide  and  the  template  for 
the  validation  summary  (ACVC)  report. 


Ada  An  Ada  compiler  with  its  host  computer  system  and 

Implementation  its  target  computer  system. 


Ada  The  part  of  the  certification  body  which  carries 

Validation  out  the  procedures  required  to  establish  the 

Facility  (AVF)  compliance  of  an  Ada  implementation. 


Ada  The  part  of  the  certification  body  that  provides 

Validation  technical  guidance  for  operations  of  the  Ada 

Organization  certification  system. 

(AVO) 

Compliance  of  The  ability  of  the  implementation  to  pass  an  ACVC 
an  Ada  version. 

Implementation 


Computer 

System 


Conformity 


A  functional  unit,  consisting  of  one  or  more 
computers  and  associated  software,  that  uses 
common  storage  for  all  or  part  of  a  program  and 
also  for  all  or  part  of  the  data  necessary  for 
the  execution  of  the  program;  executes 
user-written  or  user-designated  programs;  performs 
user-designated  data  manipulation,  including 
arithmetic  operations  and  logic  operations;  and 
that  can  execute  programs  that  modify  themselves 
during  execution.  A  computer  system  may  be  a 
stand-alone  unit  or  may  consist  of  several 
inter-connected  units. 

Fulfillment  by  a  product,  process  or  service  of 
all  requirements  specified. 
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Customer 


Declaration  of 
Conformance 


Host  Computer 
System 

Inapplicable 

test 


Operating 

System 


Target 

Computer 

System 

Validated  Ada 
Compiler 

Validated  Ada 
Implementation 


Validation 


Withdrawn 

test 


An  individual  or  corporate  entity  who  enters  into 
an  agreement  with  an  AVF  which  specifies  the  terms 
and  conditions  for  AVF  services  (of  any  kind)  to 
be  performed. 

A  formal  statement  from  a  customer  assuring  that 
conformity  is  realized  or  attainable  on  the  Ada 
implementation  for  which  validation  status  is 
realized. 

A  computer  system  where  Ada  source  programs  are 
transformed  into  executable  form. 

A  test  that  contains  one  or  more  test  objectives 
found  to  be  irrelevant  for  the  given  Ada 
implementation . 

Software  that  controls  the  execution  of  programs 
and  that  provides  services  such  as  resource 
allocation,  scheduling,  input/ output  control, 
and  data  management.  Usually,  operating  systems 
are  predominantly  software,  but  partial  or 
complete  hardware  implementations  are  possible. 

A  computer  system  where  the  executable  form  of  Ada 
programs  are  executed. 


The  compiler  of  a  validated  Ada  implementation. 


An  Ada  implementation  that  has  been  validated 
successfully  either  by  AVF  testing  or  by 
registration  [Pro90]. 

The  process  of  checking  the  conformity  of  an  Ada 
compiler  to  the  Ada  programming  language  and  of 
issuing  a  certificate  for  this  implementation. 

A  test  found  to  be  incorrect  and  not  used  in 
conformity  testing.  A  test  may  be  incorrect 
because  it  has  an  invalid  test  objective,  fails 
to  meet  its  test  objective,  or  contains  erroneous 
or  illegal  use  of  the  Ada  programming  language. 
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CHAPTER  2 


IMPLEMENTATION  DEPENDENCIES 


2 . 1  WITHDRAWN  TESTS 

Some  tests  are  withdrawn  by  the  AVO  from  the  ACVC  because  they  do 
not  conform  to  the  Ada  Standard.  The  following  94  tests  had  been 
withdrawn  by  the  Ada  Validation  Organization  (AVO)  at  the  time  of 
validation  testing.  The  rationale  for  withdrawing  each  test  is 
available  from  either  the  AVO  or  the  AVF.  The  publication  date  for 
this  list  of  withdrawn  tests  is  91-05-03. 


E28005C 

B28006C 

C34006D 

C35508I 

C35508J 

C35508M 

C35508N 

C35702A 

C35702B 

B41308B 

C43004A 

C45114A 

C45346A 

C45612A 

C45612B 

C45612C 

C45651A 

C46022A 

B49008A 

B49008B 

A74006A 

C74308A 

B83022B 

B83022H 

B83025B 

B83025D 

B83026B 

C83026A 

C83041A 

B85001L 

C86001F 

C94021A 

C97116A 

C98003B 

BA2011A 

CB7001A 

CB7001B 

CB7004A 

CC1223A 

BC1226A 

CC1226B 

BC3009B 

BD1B02B 

BD1B06A 

AD1B08A 

BD2A02A 

CD2A21E 

CD2A23E 

CD2A32A 

CD2A41A 

CD2A41E 

CD2A87A 

CD2B15C 

BD3006A 

BD4008A 

CD4022A 

CD4022D 

CD4024B 

CD4024C 

CD4024D 

CD4031A 

CD4051D 

CD5111A 

CD7004C 

ED7005D 

CD7005E 

AD7006A 

CD7006E 

AD7201A 

AD7201E 

CD7204B 

AD7206A 

BD8002A 

BD8004C 

CD9005A 

CD9005B 

CDA201E 

CE2107I 

CE2117A 

CE2117B 

CE2119B 

CE2205B 

CE2405A 

CE3111C 

CE3116A 

CE3118A 

CE3411B 

CE3412B 

CE3607B 

CE3607C 

CE3607D 

CE3812A 

CE3814A 

CE3902B 

2 , 2  INAPPLICABLE  TESTS 

A  test  is  inapplicable  if  it  contains  test  objectives  which  are 
irrelevant  for  a  given  Ada  implementation.  The  inapplicability 
criteria  for  some  tests  are  explained  in  documents  issued  by  ISO 
and  the  AJPO  known  as  Ada  Issues  and  commonly  referenced  in  the 
format  Al-dddd.  For  this  implementation,  the  following  tests  were 
inapplicable  for  the  reasons  indicated;  references  to  Ada  Issues 
are  included  as  appropriate. 

The  following  285  tests  have  floating-point  type  declarations 
requiring  more  digits  than  SYSTEM. MAX_DIGITS : 

C24113F..Y  (20  tests)  C35705F..Y  (20  tests) 

C35706F..Y  (20  tests)  C35707F..Y  (20  tests) 

C35708F..Y  (20  tests)  C35802F..Z  (21  tests) 
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C45241F..Y  (20  tests)  C45321F..Y  (20  tests) 
C45421F..Y  (20  tests)  C45521F..Z  (21  tests) 
C45524F..Z  (21  tests)  C45621F..Z  (21  tests) 
C45641F..Y  (20  tests)  C46012F..Z  (21  tests) 

The  following  21  tests  check  for  the  predefined  type  SHORT_INTEGER ; 
for  this  implementation,  there  is  no  such  type; 


C35404B 

B36105C 

C45231B 

C45304B 

C45411B 

C45412B 

C45502B 

C45503B 

C45504B 

C45504E 

C45611B 

C45613B 

C45614B 

C45631B 

C45632B 

B52004E 

C55B07B 

B55B09D 

B86001V 

C86006D 

CD7101E 

C35404D,  C45231D,  B86001X,  C86006E,  and  CD7101G  check  for  a 
predefined  integer  type  with  a  name  other  than  INTEGER, 
LONG_INTEGER,  or  SHORT_INTEGER;  for  this  implementation,  there  is 
no  such  type. 

C35713B,  C45423B,  B86001T,  and  C86006H  check  for  the  predefined 
type  SHORT_FLOAT;  for  this  implementation,  there  is  no  such  type. 

C35713D  and  B86001Z  check  for  a  predefined  floating-point  type  with 
a  name  other  than  FLOAT,  LCNG_FLOAT,  or  SHORT_FLOAT;  for  this 
implementation,  there  is  no  such  type. 

C45531M..P  and  C45532M..P  (8  tests)  check  fixed-point  operations 
for  types  that  require  a  SYSTEM, MAX_MANTISSA  of  47  or  greater;  for 
this  implementation,  there  is  no  such  type. 

C45624A..B  (2  tests)  check  that  the  proper  exception  is  raised  if 
MACHINE_OVERFLOWS  is  FALSE  for  floating  point  types;  for  this 
implementation,  MACHINE_OVERFLOWS  is  TRUE. 

B86001Y  uses  the  name  of  a  predefined  fixed-point  type  other  than 
DURATION;  for  this  implementation,  there  is  no  such  type. 

C96005B  checks  for  values  of  type  DURATION ' BASE  that  are  outside 
the  range  of  DURATION;  for  this  implementation,  there  are  no  such 
values . 

CD1009C  checks  whether  a  length  clause  can  specify  a  non-default 
size  for  a  floating-point  type;  this  implementation  does  not 
support  such  sizes. 

CD2A84A,  CD2A84E,  CD2A34I..J  (2  tests),  and  CD2A340  use  length 
clauses  to  specifv  non-default  sizes  for  access  types;  chis 
implementation  does  not  support  such  sizes. 

AE2101C  and  EE2201D..E  (2  tests)  use  instantiations  of  package 
SEQUENTIAL_I0  with  unconstrained  array  types  and  record  types  with 
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discriminants  without  defaults;  these  instantiations  are  rejected 
by  this  compiler. 

AE2101H,  EE2401D,  and  EE2401G  use  instantiations  of  package 
DIRECT_IO  with  unconstrained  array  types  and  record  types  with 
discriminants  without  defaults;  these  instantiations  are  rejected 
by  this  compiler. 

The  tests  listed  in  the  following  table  are  not  applicable  because 
the  given  file  operations  are  supported  for  the  given  combination 
of  mode  and  file  access  method. 


Test 

File  Operati 

on  Mode 

File  Access  Method 

CE2102E 

CREATE 

OUT  FILE 

SEQUENTIAL  10 

CE2102F 

CREATE 

INOUT  FILE 

DIRECT  10 

CE2102J 

CREATE 

OUT  FILE 

DIRECT  10 

CE2102N 

OPEN 

IN  FILE 

SEQUENTIAL  10 

CE21020 

RESET 

IN  FILE 

SEQUENTIAL  10 

CE2102P 

OPEN 

OUT  FILE 

SEQUENTIAL  10 

CE2102Q 

RESET 

OUT  FILE 

SEQUENTIAL  10 

CE2102R 

OPEN 

INOUT  FILE 

DIRECT  10 

CE2102S 

RESET 

INOUT  FILE 

DIRECT  10 

CE2102T 

OPEN 

IN  FILE 

DIRECT  10 

CE2102U 

RESET 

IN  FILE 

DIRECT  10 

CE2102V 

OPEN 

OUT  FILE 

DIRECT  10 

CE2102W 

RESET 

OUT  FILE 

DIRECT  10 

CE3102F 

RESET 

Any  Mode 

TEXT  10 

CE3102G 

DELETE 

TEXT  10 

CE3102I 

CREATE 

OUT  FILE 

TEXT  10 

CE3102J 

OPEN 

IN  FILE 

TEXT  10 

CE3102K 

OPEN 

OUT  FILE 

TEXT  10 

The  tests  listed  in  the  following  table  are  not  applicable  because 
the  given  file  operations  are  not  supported  for  the  given 
combination  of  mode  and  file  access  method. 

Test  File  Operation  Mode  File  Access  Method 

CE2105A  CREATE  IN_FILE  SEQUENTIAL_IO 

CE2105B  CREATE  IN_FILE  DIRECT_IO 

CE3109A  CREATE  IN_FILE  TEXT_IO 

CE2107B..D  (3  tests),  CE2110B,  and  CE2111D  check  operations  on 

sequential  files  when  multiple  internal  files  are  associated  with 
the  same  external  file  and  one  or  more  are  open  fcr  writing; 
USE_ERROR  is  raised  when  this  association  is  attempted. 

CE2107E  and  CE2107L  check  operations  on  direct  and  sequential  files 
when  files  of  both  kinds  are  associated  with  the  same  external 
file;  USE_ERROR  is  raised  when  this  association  is  attempted. 
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CE2107G..H  (2  tests),  CE2110D,  and  CE2111H  check  operations  on 
direct  files  when  multiple  internal  files  are  associated  with  the 
same  external  file  and  one  or  more  are  open  for  writing;  USE_ERROR 
is  raised  when  this  association  is  attempted. 

CE2203A  checks  that  WRITE  raises  USE_ERROR  if  the  capacity  of  an 
external  sequential  file  is  exceeded;  this  implementation  cannot 
restrict  file  capacity. 

CE2403A  checks  that  WRITE  raises  USE_ERROR  if  the  capacity  of  an 
external  direct  file  is  exceeded;  this  implementation  cannot 
restrict  file  capacity. 

CE3111B,  CE3111D..E  (2  tests),  CE3114B,  and  CE3115A  check 
operations  on  text  files  when  multiple  internal  files  are 
associated  with  the  same  external  file  and  one  or  more  are  open  for 
writing;  USE_ERROR  is  raised  when  this  association  is  attempted. 

CE3413B  checks  that  PAGE  raises  LAYOUT_ERROR  when  the  value  of  the 
page  number  exceeds  COUNT 'LAST.  For  this  implementation,  the  value 
of  COUNT 'LAST  is  greater  than  150000  making  the  checking  of  this 
ob j  ective  impractical . 


2.3  TEST  MODIFICATIONS 

Modifications  (see  section  1.3)  were  required  for  41  tests. 

The  following  tests  were  split  into  two  or  more  tests  because  this 
implementation  did  not  report  the  violations  of  the  Ada  Standard  in 
the  way  expected  by  the  original  tests. 


B22003A 

B22004A 

B23004A 

B24005A 

B24005B 

B28003A 

B33201C 

B33202C 

B33203C 

B33301B 

B37106A 

B37301I 

B38003A 

B38003B 

B38009A 

B38009B 

B44001A 

B44004A 

B54A01L 

B55A01A 

B61005A 

B85008G 

B85008H 

B950e3A 

B97103E 

BB1006B 

BC1102A 

BC1109A 

BC1109B 

BC1109C 

BC1109D 

BC1201F 

BC1201G 

BC1201H 

BC1201I 

BC1201J 

BC1201L 

BC3013A 

BE2210A 

BE2413A 

"PRAGMA  ELABORATE  (REPORT) "  has  been  added  at  appropriate  points  in 
order  to  solve  the  elaboration  problems  for: 

C83030C  C86007A 

C34005P  and  C34005S  were  graded  passed  by  Test  Modification  as 
directed  by  the  AVO.  These  tests  contain  expressions  of  the  form 
"I  -  X' FIRST  +  Y' FIRST",  where  X  and  Y  are  of  an  array  type  with  a 
lower  bound  of  INTEGER ' FIRST;  this  implementation  recognizes  that 
"X* FIRST  +  Y' FIRST"  is  a  loop  invariant  and  so  evaluates  this  part 
of  the  expression  separately,  which  raises  NUMERIC_ERROR.  These 
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tests  were  modified  by  inserting  parens  to  force  a  different  order 
of  evaluation  (i.p.,  to  force  the  subtraction  to  be  evaluated 
first)  at  lines  187  and  262/263,  respectively;  those  modified  lines 
are; 

[C34005P,  line  187] 

IF  NOT  EQUAL  (X  (I),  Y  ((I  -  X'FIRST)  +  Y'FIRST))  THEN 

[C34005S,  lines  261.. 4  (only  262  &  263  were  modified)] 

IF  NOT  EQUAL  (X  (I.,  J)  , 

Y  ((I  -  X’FIRST)  +  Y'FIRST, 

(J  -  X'FIRST(2))  + 

Y'FIRST(2)))  THEN 
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CHAPTER  3 


PROCESSING  INFORMATION 


3 . 1  TESTING  ENVIRONMENT 

The  Ada  implementation  tested  in  this  validation  effort  is 
described  adequately  by  the  information  given  in  the  initial 
pages  of  this  report. 

For  a  point  of  contact  for  technical  information  about,  this 
Ada  implementation  system,  see: 

Mr.  Christopher  T.  Geyer 
Fleet  Combat  Directions  Systems  Support  Activity 
Code  81,  Room  30 ID 
200  Catalina  Blvd. 

San  Diego,  California  92147 
619-553-9447 


For  a  point  of  contact  for  sales  information  about  this  Ada 
implementation  system,  sec: 

NOT  APPLICABLE  FOR  THIS  IMPLEMENTATION 

Testing  of  this  Ada  implementation  was  conducted  at  the 
customer's  site  by  a  validation  team  from  the  AVF. 

3.2  SUMMARY  OF  TEST  RESULTS 

An  Ada  Implementation  passes  a  given  ACVC  version  if  it  processes 
each  test  of  the  customized  test  suite  in  accordance  with  the  Ada 
Programming  Language  Standard,  whether  the  test  is  applicable  or 
inapplicable;  otherwise,’  Jhe  Ada  Implementation  fails  the  ACVC 
[Pro90] . 

For  all  processed  tests  (inapplicable  and  applicable) ,  a  result  was 
obtained  that  conforms  to  the  Ada  Programming  Language  Standard. 


a)  Total  Number  of  Applicable  Tests  3695 

b)  Total  Number  of  Withdrawn  Tests  94 

c)  Processed  Inapplicable  Tests  381 

d)  Non-Processed  I/O  Tests  0 

e)  Non-Processed  Floating-Point 

Precision  Tests  0 
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f)  Total  Number  of  Inapplicable  Tests  381  (c+d+e) 

g)  Total  Number  of  Tests  for  ACVC  1.11  4170  (a+b+f) 


When  this  implementation  was  tested,  the  tests'  listed  in  section 
2 . 1  had  been  withdrawn  because  of  test  errors . 


3 . 3  TEST  EXECUTION 

"Version  1.11  of  the  ACVC  comprises  4170  tests.  When  this 
compiler  was  tested,  the  tests  listed  in  section  2.1  had  been 
withdrawn  because  of  test  errors.  The  AVF  determined  that  381 
tests  were  inapplicable  to  this  implementation.  All 
inapplicable  tests  were  processed  during  validation  testing. 
In  addition,  the  modified  tests  mentioned  in  section  2.3  were 
also  processed. 

A  magnetic  tape  containing  the  customized  test  suite  (see 
section  1.3)  was  taken  on-site  by  the  validation  team  for 
processing.  The  contents  of  the  magnetic  tape  were  loaded 
directly  onto  the  host  computer. 

After  the  test  files  were  loaded  onto  the  host  computer,  the 
full  set  of  tests  was  processed  by  the  Ada  implementation. 

The  tests  were  compiled,  linked,  and  executed  on  the  host/ 
target  computer  system. 

Testing  was  performed  using  command  scripts  provided  by  the 
customer  and  reviewed  by  the  validation  team.  See  Appendix  B 
for  a  complete  listing  of  the  processing  options  for  this 
implementation.  It  also  indicates  the  default  options.  The 
options  invoked  explicitly  for  validation  testing  during  this 
test  were: 


FOR  /NO_OPTIMIZE  the  options  were; 

/SUMMARY  /NO_TRACE_BACK  /NO_OPTIMIZE  /SOURCE 
/0UT==<f  ilename> 

FOR  /OPTIMIZE  the  options  were; 

/SUMMARY  /NO_TRACE_BACK  /OPTIMIZE  /SOURCE 

/0UT=<f ilename> 


The  options  invoked  by  default  for  validation  testing  during 
this  test  were: 
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FOR  /NO_OPTIMIZE  the  options  were; 

/NO_MACHINE_CODE  /NO_ATTRIBUTE  /NO_CROSS_REFERENCE 
/NO_DIAGNOSTICS  /NO_NOTES  /PRIVATE  /LIST 
/CONTAINER_GENERATION  /CODE_ON_WARNING  /NO_MEASURE  /DEBUG 
/CHECKS 

FOR  /OPTIMIZE  the  options  were: 

/NO_MACHINE_CODE  /NO_ATTRIBUTE  /NO_CROSS_REFERENCE 
/NO_DIAGNOSTICS  /NO_NOTES  /PRIVATE  /LIST 
/CONTAINER_GENERATION  /CODE_ON_WARNING  /NO_MEASURE  /DEBUG 
/CHECKS 

Test  output,  compiler  and  linker  listings,  and  job  logs  were 
captured  on  magnetic  tape  and  archived  at  the  AVF.  Selected 
listings  examined  on-site  by  the  validation  team  were  also 
archived. 
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APPENDIX  A 


MACRO  PARAMETERS 


This  appendix  contains  the  macro  parameters  used  for 
customizing  the  ACVC.  The  meaning  and  purpose  of  these 
parameters  are  explained  in  [UG89].  The  parameter  values  are 
presented  in  two  tables.  The  first  table  lists  the  values 
that  are  defined  in  terms  of  the  maximum  input-line  length, 
which  is  I  the  value  for  $MAX_IN_LEN — also  listed  here. 
These  values  are  expressed  here  as  Ada  string  aggregates, 
where  "V"  represents  the  maximum  input-line  length. 

Macro  Parameter  Macro  Value 


$MAX_IN_LEN  120 

$BIG_ID1  (1..V-1  =>  'A',  V  =>  '1') 

$BIG_ID2  (1..V-1  =>  'A',  V  =>  '2') 

$BIG_ID3  (1.-V/2  =>  'A')  &  *3'  &  (1..V-1-V/2  *>  ‘A') 

$BIG_ID4  (1..V/2  =>  ’A’)  &  ’4’  &  (1..V-1-V/2  =>  'A') 

$BIG_INT_LIT  (1..V-3  *>  '0')  &  ''298'' 

$BIG_REAL_LIT  (1..V-5  =>  *0')  &  '*690.0” 

$BIG_STRING1  ""  &  (1..V/2  =>  'A')  &  "" 

$BIG_STRING2  ""  &  (1..V-1-V/2  =>  'A')  &  '1'  &  "" 

$BLANKS  (1..V-20  =>  '  ' ) 

$MAX_LEN_INT  BASED_LITERAL 

"2:"  &  (1..V-5  =>  '0')  &  "11:" 

$MAX_LEN_REAL_BASED_LITERAL 

"16:"  &  (1..V-7  =>  *0')  &  "F.E:" 

$MAX  STRING  LITERAL  ""  S  (1..V-2  =>  'A')  &  "" 


A-1 


The  following  table  contains  the  values  for  the  remaining 
macro  parameters. 

Macro  Parameter  Macro  Value 


$ACC_SIZE 

$ALIGNMENT 

$COUNT_LAST 

$  DEFAULT_MEM_SI ZE 

$DEFAULT_STOR_UNIT 

$  DEFAULT_S  YS_NAME 

$DELTA_DOC 

$ENTRY_ADDRESS 

$ENTRY_ADDRESS1 

$ENTRY_ADDRESS2 

$FIELD_LAST 

$FILE_TERMINATOR 

$FIXED_NAME 

$FLOAT_NAME 

$FORM_STRING 

$F0RM_STRING2 

$GREATER_TKAN_DURAT I ON 

$GREATER_THAN_DURATION_BASE 

$  GREATER  THAN  FLOAT  BASE  LA, 


32 
4 

2_147_483_647 
1073741823 
8 

ADAVAX 

0. 000_000_000_465_661_287_307_ 
739_257_812_5 

16#40# 

16#80# 

16#100# 

32_767 

«  I 

NO_SUCH_TYPE_AVAILABLE 
NO_SUCH_TYPE_AVAILABLE 

ti  II 

”CANNOT_RESTRICT_FILE_CAPACITY" 
75_000. 0 
LAST  131_073.0 
T  1.80141E+38 


$GREATER  THAN  FLOAT  SAFE  LARGE  1.0E303 


$GREATER  THAN_SHORT_FLOAT  SAFE_LARGE  1.0E308 


$HIGH  PRIORITY 


15 
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$ILLEGAL_EXTERNAL_FILE_NAME1  BADCHAR^  @ ! 

$ILLEGAL_EXTERNAL_FILE_NAME2 

MUCH_TOO_LONG_NAME_FOR_A_FILE_UNDER_VMS_SO_THE_SO_THERE 

$INAPPROPRIATE_LINE_LENGTH  256 

$ INAPPROPRIATE  PAGE  LENGTH  -1 


$ INCLUDE  PRAGMAl 


PRAGMA  INCLUDE  ( "A28006D1 . TST" ) 


$ INCLUDE  PRAGMA2 


PRAGMA  INCLUDE  ( "B28006F1 . TST" ) 


$ INTEGER  FIRST 


-32768 


$ INTEGER  LAST 


32767 


$ INTEGER  LAST  PLUS  1 


32768 


$ INTERFACE  LANGUAGE 


ASMVAX  JSB 


$LESS  THAN  DURATION 


-75000.0 


$LESS  THAN  DURATION  BASE  FIRST 


-131073.0 


$LINE_TERMINATOR 
$LOW  PRIORITY 


$MACHINE  CODE  STATEMENT 


BYTE_0?_C0DE ' (OP=>NOP) ; 


SMACHINE  CODE  TYPE 


BYTE 


$MANTISSA_DCC 
$MAX  DIGITS 


$I^AX  INT 


2147483647 


$MAX  INT  PLUS  1 


2147483648 


$MIN  INT 


-2147483648 


$NAME 


NO  SUCH  TYPE  AVAILABLE 


$NAME  LIST 


ADAVAX,  ADA  L,  ADA  M 


$NAME_SPECIFICATI0N1 

ALSN$TEST;  [ALSN_TESTS .  ACVC.  TESTACVCVAX .  RUNNING]  X2 12  0A.  ;1 
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$NAME_SPECIFICATI0N2 
ALSN$T£ST: [ALSN_ 

$NAME_SPECIFICATI0N3 
ALSN$TEST: [ALSN_ 

$NEG_BASED_INT 

$NEW_MEM_SIZE 

$NEW_STOR_UNIT 

$NEW_SYS_NAME 

$  PAGE_TERMINATOR 

$RECORD_DEFINITION 

$RECORD_NAME 

$TASK_SI2E 

$TAS  K_STORAGE_S I Z  E 

$TICK 

$VARIABLE_ADDRESS 
$VARIABLE_ADDRESS 1 
$VARIABLE_ADDRESS2 
$YOUR  PRAGMA 


TESTS . ACVC . TESTACVCVAX . RUNNING ] X2 12  0  B . ; 1 

TESTS . ACVC . TESTACVCVAAX . RUNNING ] X3 1 1 9 A . ; 1 
16#FFFFFFFE# 

1073741823 

8 

ADA_L 
ASCII. FF 

RECORD  LWORD_l : LONG_WORD; 
LWORD_2 : LONG_WORD ;  END  RECORD; 

QUADWORD 

1624 

1024 

0.01 

16#0020# 

16#0024# 

1610028# 

TITLE  ("THIS  IS  AN  ALS/N  ACVC 
TITLE") 
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APPENDIX  B 


COMPILATION  SYSTEM  OPTIONS 


The  compiler  options  of  this  Ada  implementation,  as 
this  Appendix,  are  provided  by  the  customer.  Unless 
noted  otherwise,  references  in  this  appendix  are 
documentation  and  not  to  this  report. 


described  in 
specifically 
to  compiler 


B-1 


ALS/N  Reference  Handbook 


Version  4 . 5 
29  March  1991 


Section  9 
Conpiler  Options 


I  Option  Function 


MEASURE  Generates  code  to  monitor  execution 

frequency  at  the  subprogram  level  for 
the  current  unit.  Default:  NO_MEASURE 

NO_CHECKS  MO_CHECKS  suppresses  all  run-time 

error  checking.  CHECKS  provides 
rxin-time  error  checking. 

Default:  CHECKS 

NO_CODE_ON_WARNIMG 

NO_CODE_OM_WARNING  m^ns  no  code  is 
generated  when  there  is  a  diagnostic 
of  severity  WARNING  or  higher. 
CODE__ON_WARNING  generates  code 
only  if  there  are  no  diagnostics 
of  a  severity  higher  than  WARNING. 
Default:  CODE_ON_WARNING 

NO  CONTAINER  GENERATION 

“  “  NO_CONTAINER_GENERATION  means  that  no 

container  is  produced  even  if  there 
are  no  diagnostics. 
CONTAINER_GENERATION  produces  a 
container  if  diagnostic  serverity 
permits. 

Default:  CONTAINER  GENERATION 


Table  9-la  -  Special  Processing  Options 
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Version  4.5  ALS/N  Reference  Handbook 

29  March  1991 

I  Option  Function  | 

+ - + 

NO_DEBUG  If  NO_DEBUG  is  specified,  only  that 

information  needed  to  link,  export 


and  execute  the  current  iinit  is 
included  in  the  compiler  output. 

With  the  DEBUG  option  in  effect, 
internal  representations  and 
additional  symbolic  information  are 
stored  in  the  container. 

Default:  DEBUG 

NO_TRACE_BACK  Disables  the  location  of  source 

exceptions  that  are  not  handled  by 
built-in  exception  handlers. 

Default:  TRACE_BACK 

OPTIMIZE  Enables  global  optimizations  in 

accordance  with  the  optimization 
pragmas  specified  in  the  source 
progreua.  If  the  pragma  OPTIMIZE  is 
not  included,  the  optimizations 
emphasize  TIME  over  SPACE. 

When  MO^OPTIMIZE  is  in  effect,  no 
global  optimizations  are  performed, 
regardless  of  the  pragmas  specified. 
Default:  NO_OPTIMIZE 

+ — _ — __ — — — — - - — - + 


Table  9-lb  -  Special  Processing  Options  (Continued) 
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Option 

Function 

ATTRIBUTE 

Produces  a  Symbol  Attribute  Listing. 
(Produces  an  attribute  cross-reference 
listing  when  both  ATTRIBUTE  and 

CROSS  REFERENCE  are  specified.) 

Default:  NO_ATTRIBUTE 

CROSS_REFERENCE 

Produces  a  Cross-Reference  Listing. 
(Produces  an  attribute  cross-reference 
listing  when  both  ATTRIBUTE  and 

CROSS  REFERENCE  are  specified.) 

Default:  NO_CROSS_REFERENCE 

DIAGNOSTICS 

Produces  a  Diagnostic  Summary  Listing. 
Default:  NO_DI AGNOSTICS 

MACHINE_CODE 

Produces  a  machine  code  listing  if 
code  is  generated.  Code  is  generated 
when  CONTAINER  GENERATION  option  is 
in  effect  and  7l)  there  are  no 
diagnostics  of  severity  ERROR,  SYSTEM 
or  FATAL,  and/or  (2)  NO_CODE_ON_WARNING 
option  is  in  effect  and  there  are  no 
diagnostics  of  severity  higher  than 

NOTE.  Default:  NO_MACHINE_COnE 

NOTES 

Includes  diagnostics  of  NOTE  severity 
level  in  the  Source  Listing. 

Default:  NO_NOTES 

NO_PRIVATE 

Excludes  listing  of  Ada  statements  in 
private  part  if  a  Source  Listing  is 
produced.  Default:  PRIVATE 

SOURCE 

Produce  listing  of  Ada  source 
statements.  Default:  NO_SOURCE 

SUMMARY 

Produce  a  Siimmary  Listing;  always 
produced  when  there  are  errors  in  the 
compilation.  Default;  N0_SUM1!ARY 

Tadsle  9-2  -  Listing  Control  Options 


Version  4.5  ALS/N  Reference  Handbook 

29  March  1991 

I  Option  Function  | 

+ - + 

MSG  Sends  error  messages  and  the 

Diagnostic  Summary  Listing  to  the 
file  specified.  The  default  is  to 


send  error  messages  and  the  Diagnostic 
Summary  Listing  to  Message  Output 
(usually  the  terminal) . 


OUT  Sends  all  selected  listings  to  the 

single  file  specified.  The  default 
is  to  send  listings  to  Standard 
Output  (usually  the  terminal) . 

+ - + 


Table  9-3  -  Control_Part  (Redirection)  Options 
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LINKER  OPTIONS 


The  linker  options  t  this  Ada  implementation,  as  described  in  this 
Appendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  linker  documentation 
and  not  to  this  report. 
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Section  il 
Linker  Options 


r-  —————— ——————— 

1  Option 

Function 

DEBUG 

Produces  a  linked_container  to  be 
debugged.  Default:  NO_DEBUG. 

MEASURE 

Produces  a  linked_container  to  be 
analyzed.  Default:  NO_MEASURE 

?VO_SEARCH 

Limits  the  contents  of  the  linked 
container  to  those  units  explicitly 
specified  in  the  UNITLIST. 

Default:  SEARCH. 

PARTIAL 

Produces  an  incomplete 
linked_container  with  unresolved 
references.  Default:  NO_PARTIAL. 

Table  11-1  -  LNKVAX  Linker  Special  Processing  Options 
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ALS/N  Reference  Handbook 


Option 

Function  | 

no  option 

Linker  Summary  listing,  always  produced 
unless  diagnostics  prevent  its  generation. 

ELAB_LIST 

Generates  an  elaboration  order  listing. 
Default:  NO_ELAB_LIST . 

SYMBOLS 

Produces  a  Linker  symbols  listing. 

Default:  NO_SYMBOLS. 

UNITS 

Produces  a  Linker  units  listing. 

Default:  NO_UNITS. 

Table  11-2  -  LNKVAX  Linker  Listing  Options 


1  Option  Fvmction  | 

- - - - - 4. 

MSG  Sends  error  messages  to  the  file 

specified.  The  default  is  to  send 
error  messages  to  Message  Output 
(usually  the  terminal)  . 

OUT  Sends  all  selected  listings  to  the 

single  file  specified.  The  default 
is  to  send  listings  to  Standard 


Output  (usually  the  terminal) . 
+ - 


Table  11-3  -  Control_Part  (Redirection)  Options 
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Section  12 
Exporter  Options 


Option 

Function 

ACCOUNTING 

Causes  the  amount  of  CPU  time  and 
wall  clock  time  used  by  the  program 
to  be  reported  at  program  termination 
to  message  output. 

Default:  NO_ACCOUNTING 

DEBUG 

Produces  a  load  module  that  can  be 
debugged  by  the  ALS/N  Symbolic 

Debugger.  Default:  NO_DEBUG 

DEBUG_SYMBOLS 

Produces  a  file  of  external  symbols 
suitable  for  input  to  the  VAX/VMS 
Debugger.  Default:  NO_DEBUG_SYMBOLS 

MEASURE 

Produces  a  load  module  that  includes 
the  invocation  of  frequency  and 
statistical  analyzer. 

Default:  NO  MEASURE 

Table  12-1  -  Special  Processing  Options 
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I  Option  Function  | 

+ - + 

no  option  Exporter  Susmary  Listing  is  always 

produced  unless  diagnostics  prevent 
its  generation. 

MAP  Produces  a  program  sections  map 

listing  that  summarizes  the 
executable  image.  Default;  NO_MAP 

SYMBOLS  Produces  a  list  of  external  symbol 

descriptor  information  for  external 
definitions  contained  in  the  object 


module.  Default:  NO_syMBOLS 

+ - + 

Table  12-2  -  Listing  Options 


I  Option  Function  1 

+ - + 

MSG  Sends  error  messages  to  the  file 

specified.  The  default  is  to  send 
error  messages  to  Message  Output 
(usually  the  terminal)  . 

OUT  Sends  all  selected  listings  to  the 

single  file  specified.  The  default 
is  to  send  listings  to  Standard 
Output  (usually  the  terminal) . 

+ - + 


Table  12-3  -  Control_Part  (Redirection)  Options 
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APPENDIX  C 


APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to 
implementation-dependent  pragmas,  to  certain  machine-dependent 
conventions  as  mentioned  in  Chapter  13  of  the  Ada  Standard,  and  to 
certain  allowed  restrictions  on  representation  clauses.  The 
implementation-dependent  characteristics  of  this  Ada  implementation, 
as  described  in  this  Appendix,  are  provided  by  the  customer.  Unless 
specifically  noted  otherwise,  references  in  this  Appendix  are  to 
compiler  documentation  and  not  to  this  report. 
Implementation-specific  portions  of  the  package  STANDARD,  which  are 
not  a  part  of  Appendix  F,  are: 

package  STANDARD  is 

type  INTEGER  is  range  -32_768  ..  32_767; 

type  LONG_INTEGER  is  range  -2_147_483_648  ..  2_147_483_647 ; 
type  FLOAT  is  digits  6  range 

-(2#0.1111_llll_llll_llll_llll_i#E127)  . . 

(2#0. 1111_1111_1111_1111_1111_1#E127) ; 
type  LONG_FLOAT  is  digits  9  range 

-(2#0.1111_1111_1111_1111  1111_1111_1111_111#E127)  .. 

(2#0. 1111_1111_1111_1111“iiii_1111_1111_111#e127) ; 
type  DURATION  is  delta  2.0  **  (-14)  range 

-131_C72.0  ..  131_072.0  -  2.0  **  (-14); 

end  STANDARD; 
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Appendix  F 

The  Ada  Language  for  the  VAX  Target 


The  source  lan^age  accepted  by  the  compiler  is  Ada,  as 
described  in  the  Military  Stzmdard,  Ada  Programming  Language, 
ANSI/MIL-STD-1815A-1983,  17  February  1983  {"Ada  Language 
Reference  Manual") . 

The  Ada  definition  permits  certain  implementation 
dependencies.  Each  Ada  implementation  is  required  to  supply  a 
complete  description  of  its  dependencies,  to  be  thought  of  as 
Appendix  F  to  the  Ada  Language  Reference  Manual.  This  section  is 
that  description  for  the  VAX/VMS  target. 


F.l  Options 

There  are  several  compiler  options  provided  by  all  ALS/N 
Compilers  that  directly  affect  the  praOTas  defined  in  the  Ada 
Language  Reference  Manual.  These  compiler  options  currently 
include  the  CHECKS  and  OPTIMIZE  options  that  affect  the  SUPPRESS 
and  OPTIMIZE  pragmas,  respectively.  A  complete  list  of  ALS/N 
Compiler  options  can  be  found  in  Section  9. 

The  CHECKS  option  enables  all  run-time  error  checking  for  the 
source  file  being  compiled,  which  can  contain  one  or  more 
compilation  units.  This  allows  the  SUPPRESS  pragma  to  be  used  in 
suppressing  the  run-time  checks  discussed  in  the  Ada  Language 
Reference  Manual,  but  note  that  the  SUPPRESS  pragmas  must  be 
applied  to  each  compilation  unit.  The  NO  CHECKS  option  disables 
all  run-time  error  checking  for  all  compiXation  units  within  the 
source  file  and  is  equivalent  to  SUPPRESSing  all  run-time  checks 
within  every  compilation  unit. 

The  OPTIMIZE  option  enables  all  compile-time  optimizations 
for  the  source  file  being  compiled,  which  can  contain  one  or  more 
compilation  units.  This  allows  the  OPTIMIZE  pra<^a  to  request 
either  TIME-oriented  or  SPACE-oriented  optimizations  be 
performed,  but  note  that  the  OPTIMIZE  pragma  must  be  applied  to 
each  compilation  unit.  If  the  OPTIMIZE  pragma  is  not  present, 
the  ALS/N  Compiler's  Global  Optimizer  tends  to  optimize  for  TIME 
over  SPACE.  The  NO_OPTIMIZE  option  disables  all  compile-time 
optimizations  for  all  compilation  units  within  the  source  file 
regardless  of  whether  or  not  the  OPTIMIZE  pragma  is  present. 
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F.2  Pragmas 

Both  implementation-defined  and  Ada  language-defined  pragmas 
are  provided  by  all  ALS/N  Compilers.  The  syntax  defined  in  the 
Ada  Language  Reference  Manual  allows  pragmas  as  the  only  element 
in  a  compilation,  before  a  compilation  unit,  at  defined  places 
within  a  compilation  unit,  or  following  a  compilation  vmlt.  The 
ALS/N  Compilers  associates  pragmas  with  compilation  units  as 
follows: 

a.  If  a  pra^a  appears  before  any  compilation  unit  in  a 
compilation,  it  will  affect  all  following  compilation  units, 
as  specified  below,  and  in  the  Ada  Language  Reference  Manual. 

b.  If  a  pragma  appears  inside  a  compilation  unit,  it  will  be 
associated  with  that  compilation  unit,  and  in  listings 
associated  with  that  compilation  unit  as  described  in  the  Ada 
Language  Reference  Manual,  or  in  this  document. 

c.  If  a  pragma  follows  a  compilation  unit,  it  will  be  associated 
with  the  preceding  compilation  unit,  and  the  effects  of  the 
pragma  will  be  found  in  the  container  of  that  compilation 
unit,  and  in  listings  associated  with  that  container. 

The  pragmas  MEMORY_SIZE,  STORAGE_UNIT ,  and  SYSTEM_NAME  are 
described  in  Section  13.7  of  the  Ada^Language  Reference  Manual. 
They  may  appear  only  at  the  start  of  the  first  compilation  when 
creating  a  new  program  library.  In  the  ALS/N,  however,  since 
program  libraries  are  created  by  the  Program  Library  Manager  and 
not  by  the  compiler,  the  use  of  these  pragmas  is  obviated.  If 
they  appear  anywhere,  a  diagnostic  of  severity  level  WARNING  is 
generated. 


F.2.1  Language-defined  Pragmas 

The  following  notes  specify  the  language- required  definitions 
of  the  predefined  pragmas.  Unmentioned  language-defined  pragmas 
are  implemented  as  defined  by  the  Ada  Language  Reference  Manual. 
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pragma  INLINE  (subprogram_name)  ; 

There  are  three  instances  in  which  the  INLINE  pragma  is 
ignored.  Each  of  these  cases  produces  a  warning 
message  that  states  the  INLINE  did  not  occur. 

a.  If  a  call  to  an  INLINE  subprogrzui  is  compiled 
before  the  actual  body  of  the  subprogr2un  has  been 
compiled,  a  routine  call  is  made  instead. 

b.  If  the  compilation  unit  containing  the  INLINE 
sxibprogram  depends  on  the  compilation  unit  of  its 
caller,  a  routine  call  is  made  instead. 

c.  If  an  immediately  recursive  sxibprogram  call  is  made 
within  the  body  of  the  INLINE  subprogram,  the 
pragma  INLINE  is  ignored  entirely. 

pragma  INTERFACE  (language_name,  s\ibprogram_name)  ; 

Two  language_names  will  be  recognized  and  implemented: 

ASMVAX_JSB,  and  ASMVAX_CALLS . 

The  language_name  ASMVAX_JSB  indicates  that  a 
subprogram  written  in  the  VAX/VMS  assembler  language 
will  be  called  with  a  JSB  instruction  and  the 
parameters  passed  in  registers.  The  language_name 
ASMVAX  CALLS  will  provide  an  interface  to  a  VAX 
assembler  language  subprogram  via  the  CALLS 
instruction,  with  the  parameters  passed  on  the  stack, 
with  the  same  parameter  passing  conventions  used  for 
calling  Ada  subprograms. 

The  user  must  ensure  that  an  assembly-language  body 
container  for  this  specification  exists  in  the  program 
library  before  linking. 
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pragma  OPTIMIZE  (arg) ; 

This  pragma  is  effective  only  when  the  "OPTIMIZE" 
option  has  been  given  to  the  compiler.  The  argximent  is 
either  TIME  or  SPACE.  If  TIME  is  specified,  the 
optimizer  concentrates  on  optimizing  code  execution 
time.  If  SPACE  is  specified,  the  optimizer 
concentrates  on  optimizing  code  size. 

pragma  PRIORITY  (arg)l; 

The  PRIORITY  argument  is  an  integer  static  expression 
value  of  predefined  integer  subtype  PRIORITY.  The 
pragma  has  no  effect  in  a  location  other  than  a  task 
(type)  specification  or  outermost  declarative  part  of  a 
subprogreua.  If  the  pragma  appears  in  the  declarative 
part  of  a  subprogram,  it  has  no  effect  unless  that 
subprogreun  is  designated  as  the  "main"  subprogram  at 
link  time. 

pragma  SUPPRESS  (arg[,arg]); 

Pragmas  to  suppress  OVERFLOW_CHECK  will  have  no  effect 
for  operations  of  integer  types. 

A  SUPPRESS  pragma  will  have  effect  only  within  the 
compilation  unit  in  which  it  appears,  except  that  a 
SUPPRESS  of  ELABORATION_CHECK  applied  at  the 
declaration  of  a  subprogram  or  task  unit  will  apply  to 
all  calls  or  activations. 

pragma  MEMORY_SIZE ; 

This  pragma  is  ignored  and  a  WARNING  diagnostic  is 
issued. 

pragma  STORAGE_SIZE; 

This  pragma  is  ignored  and  a  WARNING  diagnostic  is 
issued. 

pragma  SYSTEM_NAME; 

This  pragma  is  ignored  and  a  WARNING  diagnostic  is 
issued. 
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F .  2 . 2  Implementation-defined  Pragmas 

The  following  is  the  only  implementation-defined  pragma: 
pragma  TITLE  (arg) ; 

This  is  a  listing  control  pragma.  It  takes  a 
single  argximent  of  type  string.  The  string 
specified  will  appear  on  the  second  line  of 
each  page  of  the  source  listing  produced  for 
the  compilation  unit  within  which  it  appears. 

The  pragma  should  be  the  first  lexical  unit 
to  appear  within  a  compilation  unit 
(excluding  comments).  If  it  is  not,  a 
warning  message  is  issued. 


F.2.3  Scope  of  Pragmas 

The  scope  of  pragmas  is  as  described  in  the  Ada  Language 
Reference  Manual  except  as  noted  below: 

MEM0RY_SI7"  No  scope,  but  a  WARNING  diagnostic  is  generated. 
PAGE  -  ..c  dcope. 

STOPAGE_SIZE  -  No  scope,  but  a  WARNING  diagnostic  is  generated. 
F1STEM_NAME  -  No  scope,  but  a  WARNING  diagnostic  is  generated. 
TITLE  -  The  compilation  unit  within  which  the  pragma  occurs. 


F.2.3  Scope  of  Pragmas 
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F.3  Attributes 

There  is  one  implementation-defined  attribute  in  addition  to 
the  predefined  attributes  found  in  Appendix  A  of  the  Ada  Language 
Reference  Manual. 


X'DISP 


A  value  of  type  UNIVERSAL_INTEGER  that 
corresponds  to  the  displacement  that  is  used 
to  address  the  first  storage  xmit  occupied 
by  a  data  object  X  at  a  static  offset  within 
an  implemented  activation  record. 

This  attribute  differs  from  the  ADDRESS 
attribute  in  that  ADDRESS  supplies  the 
absolute  address  while  DISP  supplies  the 
displacement  relative  to  some  base  value 
(such  as  a  stack  frame  pointer)  .  It  is  the 
user's  responsibility  to  determine  the  base 
value  relevant  to  the  attribute. 

The  following  notes  augment  the  language-required  definitions 
of  the  predefined  attributes  found  in  Appendix  A  of  the  Ada 
Language  Reference  Manual. 


T'MACHINE_EMAX 
T'MACHINE_EMIN 
T 'MACHINE  MANTISSA 


T ' MACHIME_OVERFLOWS 
T'MACHINE_RADIX 
T' MACHINE  ROUNDS 


is  127. 
is  -127. 

if  the  size  of  the  base  type  T  is  32, 
MACHINE_MANTISSA  is  24. 
if  the  size  of  the  base  type  T  is  64 , 
MACHINE_MANTISSA  is  56. 

is  tirue. 

is  2 . 

is  false. 


F.4  Predefined  Language  Environment 

The  predefined  Ada  language  environment  consists  of  the 
packages  STANDARD  and  SYSTEM  described  below. 
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F.4.1  Package  STANDARD 

The  Package  STANDARD  contains  the  following  definitions  in 
addition  to  those  specified  in  Appendix  C  of  the  Ada  Language 
Reference  Manual: 

—  For  this  implementation,  there  is  no  corresponding  body, 
type  BOOLEAN  is  (FALSE, TRUE)  ;  for  BOOLEAN'SIZE  use  1; 

—  The  universal  type  UNIVERSAL_INTEGER  is  predefined  for  Ada. 

type  INTEGER  is  range  -32_768  ..  32_767; 

type  LONG_INTEGER  is  range  -2_147_483_648  ..  2_147_483_647 ; 

~  The  universal  type  UNIVERSAL_REAL  is  predefined  for  Ada. 

type  FLOAT  is  digits  6  range 

-  (2#0.1111_1111_1111_1111_1111_1#E127)  .. 

(2#0.1111__1111_1111_1111_1111_1#E127)  ; 

type  LONG_FLOAT  is  digits  9  range 

-(2#0.1111  1111_1111_1111  1111_1111_1111_111#E127)  .. 

(2#0.111l”llll_llll_lllOlll_llll_llll_lll#E127)  ; 

—  Predefined  subtypes  within  the  Ada  Language: 

subtype  NATURAL  is  INTEGER  range  0  ..  INTEGER' LAST;  —  32_767 
subtype  POSITIVE  is  INTEGER  range  1  ..  INTEGER ' LAST ;  —  32_767 
subtype  LONG  NATURAL  is  LONG  INTEGER 

“  range  0  ..  LONG_INTEGER'LAST; 

subtype  LONG_POSITIVE  is  LONG_INTEGER 

range  1  ..  LONG_INTEGER'LAST; 

—  Predefined  STRING  type  within  the  Ada  Language; 

type  STRING  is  array  (POSITIVE  range  <>)  of  CHARACTER; 
pragma  PACK (STRING) ;  * 

—  The  type  DURATION  is  predefined  for  use  with  Ada  DELAY. 

type  DURATION  is  delta  2.0  **  (-14) 

range  -131_072.0  ..  131_072.0  -  2.0  **  (-14) 

—  The  predefined  operators  for  the  type  DURATION  are  the  same 

—  as  for  any  fixed  point  type  within  the  Ada  language. 


F.4.1  Package  STANDARD 
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F . 4 . 2  Package  SYSTEM 

Within  the  various  implementations,  no  corresponding  package 
body  is  required  for  the  package  SYSTEM.  The  package  SYSTEM  is 
as  follows: 


type  ADDRESS  is  new  LONG_INTEGER; 
type  NAME  is  (Ada VAX,  Ada_L,  Ada_M)  ; 
SYSTEM_NAME  :  constant  NAME  :»  Ada  VAX; 
STORAGE_UNIT  :  constant  :=  8; 

MEMORY_SIZE  :  constant  :=  2**30  -  1; 

—  System-Dependent  Nzuned  Numbers: 


MIN_INT  :  constant 
MAX_INT  :  constant 
MAX_DIGITS  :  constant 
MAX_MANTISSA  :  constant 
FINE_DELTA  :  constant 
TICK  :  constant 


-(2**31)  ; 

(2**31)-1; 

9; 

31; 

2.0**(-31)  ; 

0.01; 


—  Other  System-Dependent  Declarations 


subtype  PRIORITY  is  INTEGER  range  1..15; 


—  The  following  exceptions  are  provided  as  a  "convention” 

—  whereby  the  Ada  program  can  be  compiled  with  all  implicit 

—  checks  suppressed  (i.e.,  pragma  SUPPRESS  or  equivalent), 

—  explicit  checks  included  as  necessary,  the  appropriate 

—  exception  raised  when  required,  and  then  the  exception  is 

—  either  handled  or  the  Ada  program  terminates. 


ACCESS_CHECK 

DISCRIMINANT  CHECK 

INDEX_CHECK 

LENGTH_CHECK 

RANGE_CHECK 

DIVISION_CHECK 

OVERFLOW_CHECK 

ELABORATION_CHECK 

STORAGE  CHECK 


exception; 

exception; 

exception; 

exception; 

exception; 

exception; 

exception; 

exception; 

exception; 


—  The  following  exceptions  provide  for  (1)  Ada  programs  that 

—  contain  unresolved  subprogram  calls  and  (2)  VAX/VMS 

—  system-level  errors. 


UNRESOLVED_REFERENCE  :  exception; 

SYSTEM_ERROR  ;  exception; 
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F.5  Character  Set 

Ada  compilations  may  be  expressed  using  the  following 
characters,  in  addition  to  the  basic  character  set: 

lower  case  letters: 

abcdefghijklmnopqrstuvwxyz 

special  characters : 

!$%?§[  - 

The  following  tramsl iterations  are  permitted  (see  Paragraph  2.10 
of  the  Ada  Language  Reference  Manual) : 

a.  Exclamation  mark  for  vertical  bar; 

b.  Colon  for  sharp;  and 

c.  Percent  for  double_quote. 


F.5  Character  Set 
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F.6  Declaration  and  Representation  Restrictions 

Declarations  are  described  in  Chapter  3  of  the  Ada  Lan^age 
Reference  Manual.  Representation  specifications  are  described  in 
Chapter  13  and  discussed  here. 

In  the  following  specifications,  the  capitalized  word  SIZE 
indicates  the  number  of  bits  used  to  represent  an  object  of  the 
type  under  discussion.  The  upper  case  symbols  D,  L,  and  R 
correspond  to  those  discussed  in  Section  3.5.9  of  the  Ada 
Language  Refe'ince  Manual. 


F.6.1  Integer  Types 

Integer  types  are  specified  with  constraints  of  the  form: 
RANGE  L.  .R 

where : 

R  <=  SYSTEM. MAX_INT  &  L  >=  SYSTEM. MIN_INT 
For  an  integer  type,  length  specifications  of  the  form: 

FOR  t'SIZE  USE  n; 

may  specify  integer  values  n  such  that  n  is  in  2.. 32, 

R  <=  2**(n-l)-l  i  L  >=  -2**(n-l); 
or  else  such  that 

R  <=»  (2**N)-1  S  L  >=  0 
and  N  is  in  1. . 31. 

For  a  stand-alone  object  of  integer  type,  a  default  SIZE  of  16 
is  used  when: 

R  <=  2**15-1  &  L  >=  2**15 

Otherwise  a  SIZE  of  32  is  used. 

For  components  of  integer  types  within  packed  composite 
objects,  the  smaller  of  the  default  stand-alone  SIZE  or  the  SIZE 
from  a  length  specification  will  be  used. 
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F.6.2  Floating  Types 

Floating  types  are  specified  with  constraints  of  the  form: 
DIGITS  D 

where  D  is  an  integer  value  in  1  through  9. 

For  floating  point  types,  length  specifications  of  the  form: 
FOR  t'SIZE  USE  n; 

are  permitted  only  when  the  integer  values  N  =  32  when  D  <=  6, 
or  N  =  64  when  D  <=  9 . 

When  no  length  specification  is  provided,  a  size  of  32  is  used 
when  D  <=  6;  64  when  D  is  7  through  9. 

F.6.3  Fixed  Types 

Fixed  types  are  specified  with  constraints  of  the  form: 


delta  D  range  L. .R 


where : 


max  (abs(R),  abs(L))  <  2**31-1 
actua l_del ta 

The  actual  delta  defaults  to  the  largest  integral  power  of  2 
less  than  or  equal  to  the  specified  delta  D.  (This  implies 
that  fixed  point  values  are  stored  right-aligned.) 

For  fixed  point  types,  length  specifications  of  the  form: 

for  T'SIZE  use  N; 

are  perritted  only  when  N  in  1  ..  32,  if: 

R  -  actuai_delta  <=  2**(N-1)-1  *  actual_delta 


L  +  actual_delta  >=  -2**(n-l)  *  actual) delta 


R  -  actual_delta  <=  2**(N)-1  *  actual_delta 


F.6.3  Fixed  Types 
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I  L  >=  0 

For  stand-alone  objects  of  fixed  point  type,  a  default  size  of  32 
is  used.  For  components  of  fixed  point  types  within  packed 
composite  objects,  the  size  from  the  length  specification  will  be 
used. 

I  Specifications  of  the  form: 
j  for  T' SMALL  use  X; 

are  permitted  for  any  value  of  X,  such  that  X  <=  D.  X  must  be 
specified  either  as  a  base  2  value  or  as  a  base  10  value.  Note 
that  when  X  is  specified  as  other  than  a  power  of  2,  actual_delta 
will  still  be  the  largest  integreal  power  of  two  less  than  X. 
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F.6.4  Enumeration  Types 

In  the  absence  of  a  representation  specification  for  an 
entimeration  type  T,  the  internal  representation  of  T'FIRST  =  0. 
The  default  SIZE  for  a  stand-alone  object  of  enxmeration  type  T 
will  be  the  smallest  of  the  values  8,  16,  or  32,  such  that  the 
internal  representation  of  T^ FIRST  and  T'lAST  both  falls  within 
the  range: 

-2**(T'SIZE-1)  ..  2**(T'SIZE-1)-1. 

For  eniameration  types,  length  specification  of  the  form: 
for  T'SIZE  use  N; 

and/or  enumeration  representations  of  the  form: 
for  T  use  <aggregate>; 

are  permitted  for  N  in  2.. 32,  provided  that  the  internal 
representations  and  the  SIZE  conform  to  the  relationship 
specified  above. 

Or  else  for  N  in  1..31,  is  supported  for  eniameration  types 
and  provides  an  internal  representation  of: 

T'FIRST>*0  ..  T'IAST<«2**(T'SIZE)-1. 

For  components  of  enumeration  types  within  packed  composite 
objects,  the  smaller  of  the  default  stand-alone  SIZE,  or  the  SIZE 
from  a  length  specification  will  be  used. 

Enumeration  representation  on  types  derived  from  the 
predefined  type  BOOLEAN  will  not  be  accepted,  but  length 
specifications  will  be  accepted. 


F.6.4  Enumeration  Types 
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F.6.5  Access  Types 

For  access  type,  T,  length  specifications  of  the  form: 
for  T'SIZE  use  N; 

will  not  affect  the  run-time  implementation  of  T,  therefore  N  = 
32  is  the  only  value  permitted  for  SIZE,  which  is  the  value 
returned  by  the  attribute. 

For  collection  size  specifications  of  the  form: 

for  T'STORAGE_SIZE  use  N; 

any  value  of  N  is  permitted  (and  that  value  will  be  returned  by 
the  attribute  call) .  The  collection  size  specification  will 
affect  the  implementation  of  T  amd  its  collection  at  run-time  by 
limiting  the  number  of  objects  for  type  T  that  can  be  allocated. 


F .  6 . 6  Arrays  and  Records 

For  arrays  and  records,  length  specifications  of  the  form: 
for  T'SIZE  use  N; 

may  cause  arrays  and  records  to  be  packed,  if  required,  to 
accommodate  the  length  specification.  If  the  SIZE  specified  is 
not  large  enough  to  contain  all  possible  values  of  the 
components,  a  diagnostic  message  of  severity  ERROR  is  issued. 

The  PACK  pragma  may  be  used  to  minimize  wasted  space,  if  any, 
between  components  of  arrays  and  records.  The  pragma  causes  the 
type  representation  to  be  chosen  such  that  storage  space 
requirements  are  minimized  at  the  possible  expense  of  data  access 
time  and  code  space. 

For  records,  a  component  clause  of  the  form: 
at  N  [  range  i . .  j  ] 

specifies  the  allocation  of  components  in  a  record.  Bits  are 
numbered  0..7  from  the  right  and  bit  8  starts  at  the  right  of  the 
next  higher-number  byte.  Each  location  specification  must  allow 
at  least  X  bits  of  range,  where  X  is  lar^e  enough  to  hold  any 
value  of  the  subtype  of  the  component  being  allocated. 

Otherwise,  a  diagnostic  message  of  severity  ERROR  is  generated. 
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For  records,  an  alignment  clause  of  the  form: 
at  mod  N 

specify  alignments  of  N  bytes  for  1  bybe,  2  bytes  (VAX  "word"), 
and  4  bytes  (VAX  "long_word") . 

If  it  is  determinable  at  compilation  time  that  the  SIZE  of  a 
record  or  array  type  or  sxibtype  maybe  outside  the  range  of 
STANDARD. LONG_INTEGER,  a  diagnostic  message  of  severity  WARNING 
is  generated.  Declaration  of  an  object:  of  such  a  type  or  subtype 
would  raise  NUMERIC_ERROR  when  elaborated.  Note  that  a 
discriminant  record  or  array  may  never  raise  the  NUMERIC_ERROR 
when  elaborated  based  on  the  actual  discriminant  provided. 


F.6.7  Other  Length  Specifications 

Length  Specifications  are  described  in  Section  13.2  of  the 
Ada  Language  Reference  Manual. 

A  length  specification  for  a  task  type  T,  of  the  form: 

for  T'SIZE  use  N; 

specifies  the  number  of  bits  to  be  allocated  for  objects  of  the 
task  type  T.  For  the  VAX/VMS  target,  N  must  be  defined: 

N  =>  8  *  (109  +  13  *  number_of__entries) 

Where  number_of  entries  is  the  number  of  entries  declared  in  the 
task  type  speciTication. 
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F.7  System  Names 

Refer  to  Section  13.7  of  the  Ada  Language  Reference  Manual 
for  a  discussion  of  package  SYSTEM. 

The  availadJle  system  names  are  "AdaVAX",  "Ada^L",  and 
"Ada_M";  the  system  name  is  chosen  based  on  the  targets 
supported,  but  it  can  not  be  changed.  In  the  case  of  VAX/VMS, 
the  system  name  is  "AdaVAX". 


F.8  Address  Clauses 

Refer  to  Section  13.5  of  the  Ada  Language  Reference  Manual 
for  a  discussion  of  Address  Clauses.  Address  clauses  for  objects 
and  code  are  allowed  by  the  VAX/VMS  target,  but  they  have  no 
effect  beyond  changing  the  value  returned  by  the  'ADDRESS 
attribute  call. 

The  Run-Time  Support  Library  (RSL)  for  the  VAX/VMS  target 
does  not  handle  hardware  interrupts.  All  hardware  interrupts  are 
handled  by  the  VAX/VMS  operating  system.  However,  the  VAX_^VMS 
target  uses  asynchronous  system  traps  (ASTs)  in  a  manner  similar 
to  interrupt  entries. 


F.9  Unchecked  Conversions 

Refer  to  Section  13.10.2  of  the  Ada  Language  Reference  Manual 
for  a  description  of  UNCHECKED_CONVERSION. 

A  program  is  erroneous  if  it  performs  UNCHECKED_CONVERSION 
when  the  source  and  target  have  different  sizes. 


F.IO  Restrictions  on  the  Main  (Sub) Program 

Refer  to  Section  10.1  of  the  Ada  Language  Reference  Manual 
for  a  discussion  of  the  main  (sub) program.  The  subprogram 
designated  as  the  main  (sub) program  cannot  have  parameters.  The 
desii^nation  as  the  main  (sub) program  of  a  subprogram  whose 
specification  contains  a  formal_part  results  in  a  diagnostic  of 
severity  ERROR  at  link  time. 

The  main  (sub) program  can  be  a  function,  but  the  return  value 
will  not  be  available  upon  completion  of  the  main  (sxib) program's 
execution.  The  main  (sub) program  may  not  be  an  imported 
subprogram. 
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F.ll  Input/ Output 

Refer  to  Chapter  14  of  the  Ada  Language  Reference  Manual  for 
a  description  of  Ada  Input./ Output  (I/O) . 

The  RSL  I/O  siibsystem  provides  the  following  packages  to  the 
user:  TEXT^IO,  SEQUENTIAL^IO ,  DIRECT  10,  and  LOW  LEVEL  10.  These 
packages  execute  in  the  context  of  tHe  an  indivi3ual  Ada  task 
making  the  I/O  request.  Consequently,  all  of  the  code  that 
process  an  I/O  rec[uest  on  behalf  of  the  Ada  task  executes 
sequentially.  The  package  IO_EXCEPTIONS  defines  all  of  the 
exceptions  needed  by  the  packages  TEXT_IO,  SEQUENTIAL_IO,  and 
DIMCT_IO.  The  specification  of  this  package  is  given  in  Section 
14.5  of  the  Ada  LRM.  This  package  is  visible  to  all  of  the 
constituent  packages  of  the  RSL  I/O  subsystem  so  that  appropriate 
exception  handlers  can  be  inserted. 

High-level  I/O  in  AdaVAX  is  performed  solely  on  external 
files.  No  allowance  is  provided  in  the  RSL  I/O  subsystem  for 
memory  resident  files  (i.e.,  files  which  do  not  reside  on  a 
peripheral  device)  .  This  is  true  even  in  the  case  of  temporary 
files.  With  the  external  files  residing  on  peripheral  devices, 
only  the  various  VAX/VMS  quotas  restricts  the  number  of  files 
that  may  be  open  on  an  individual  peripheral  device. 

Section  14.1  of  the  Ada  LRM  states  that  all  I/O  operations 
are  expressed  as  operations  on  objects  of  some  file  type,  rather 
than  in  terms  of  an  external  file.  File  objects  are  implemented 
in  AdaVAX  as  access  objects  that  point  to  a  data  structure  call 
the  File  Control  Block  (FCB) .  This  FCB  is  defined  internally  to 
each  high-level  I/O  package;  its  purpose  is  to  represent  an 
external  file.  The  FCB  contains  all  of  the  I/O-specific 
information  about  an  external  file  that  is  needed  by  the 
high-level  packages  to  accomplish  the  requested  I/O  operation. 


F.11.1  Naming  External  Files 

The  naming  conventions  for  external  files  in  AdaVAX  are  of 
particular  importance  to  the  user.  An  external  file  name  for  Ada 
I/O  can  be  any  valid  path  name  (e.g., 

disk;  [directories]  filename,  ext)  in  the  VAX/VMS  environment. 
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F.11.2  The  FORM  Specification  for  External  Files 

The  FORM  specification  for  external  Files  created  by  TEXT  10 
include  the  default  (i.e.,  the  NULL  string)  and  the  two  shortHand 
strings:  "PASS^ALL"  or  "LOG  FILE".  The  only  FORM  specification 
for  external  files  created  Ey  SEQUENTIAL_IO  and  DIRECT_IO  is  the 
default  of  the  NULL  string.  Note  that  opening  the  external  file 
after  its  creation  still  utilizes  the  file  attributes  assigned  to 
the  file  when  it  was  created  and,  therefore,  the  only  legal  FORM 
specification  is  the  NULL  string. 

An  allowable  FORM  string  in  TEXT_IO  has  syntax  defined  by  the 
graninar  is  shown  in  Table  F>1  below.  The  tokens  of  the  granunar 
may  be  separated  by  any  combination  of  blanks  •)  and 
horizontal  tab  ( ASCII. HT)  characters.  The  FORM  parameter  is  not 
case  sensitive,  but  repetition  of  a  file_attribute_item  is  not 
allowed.  The  record  format  values  valid  with  the  file 
organization  SEQUENTIAL  are:  STREAM,  STREAM_CARRIAGE_RETURN , 
STREAM_LINE_FEED,  and  UNDEFINED.  Note  that  the 
VARIABLE  FIXED_CONTROL  record  format  is  not  valid  with  the 
INDEXED  file  organization. 

In  TEXT_IO,  the  following  default  FORM  value  is  assximed  when 
the  FORM  parameter  is  the  NULL  string: 

"RECORD_FORMAT  :=  VARIABLE,  "  & 

"FILE_ORGANIZATION  :=*  SEQUENTIAL,  "  & 

"CARRIAGE_CONTROL  :»  CARRIAGE_RETURN" 

The  "PASS_ALL"  FORM  parameter  is  equivalent  to  the  string: 

"RECORD_FORMAT  :=  VARIABLE,  "  k 
"FILE_ORGANIZATION  :*  SEQUENTIAL,  "  & 

"CARRIAGE_CONTROL  ;=  NONE" 

The  "LOG_FILE"  FORM  parameter  is  equivalent  to  the  string: 

"RECORD_FORMAT  :*  VARIABLE_FIXED_CONTROL,  "  & 
"FILE_ORGANIZATION  :»  SEQUENTIAL,  "  & 

"CARRIAGE  CONTROL  :=  PRINT" 
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I  Left  Hand  Side  Right  Hand  Side 


form_string  |  shorthand_string  | 

f  i  le_a  ttr  ibute_l  ist 

shorthand_string  :=  PASS_ALL  |  LOG_FILE 

file_attribute_list  :=*  file  attibute_iteitt 

{ ,  f iTe_attribute_item} 

file_attribute_itein  record_format_string  j 

f ile_^organization_string  | 
carrTage_control_string 

record_fonnat_string  :=*  RECORD_FORJ4AT  ;=  record_fonnat 

record_forniat  :=  VARIABLE  |  FIXED  |  STREAM  | 

VARIABLE_FIXED_CONTROL  | 
STREAM_CARRIAGE_CONTROL  | 
STREAM_LINE_FEED  |  UNDEFINED 

file_organi2ation_string  :=  FILE^ORGANIZATION  :  = 

f  ile^organization 

file_organization  :=  SEQUENTIAL  |  RELATIVE  |  INDEXED 

carriage_control_string  ;==  CARRIAGE_CONTROL  :* 

“  carriage“control 

carriage_control  :==  FORTRAN  |  CARRIAGE_RETURN  | 

PRINT  (  NONE 


Table  F-1  -  FOPH  String  Grammar 
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F.11.3  External  File  Processing 

Section  14  of  the  Ada  LRM  defines  two  kinds  of  access  to 
external  files:  sequential  access  and  direct  access.  A  file 
object  used  for  sequential  access  is  call  a  sequential  file,  and 
one  used  for  direct  access  is  called  a  direct  file.  Three  file 
inodes  are  defined:  IN  FILE,  OUT_FILE,  and  INOUT_FILE.  All  three 
file  modes  are  allowed  for  direct  files,  whereas  only  the  modes 
IN_FILE  and  OUT__FILE  are  allowed  for  sequential  files. 

AdaVAX  takes  the  view  that  files  of  mode  IN_FILE  already 
contain  data,  making  them  suitable  for  reading,  while  files  of 
mode  OXjT_FILE  are  empty,  making  them  suitable  for  writing.  Files 
of  mode  INOUT_FILE  may  contain  data  or  may  be  empty,  making  them 
suitable  for  reading  or  writing.  An  attempt  to  create  a  file  of 
mode  IN_FILE  will  raise  the  exception  USE_ERROR  since  a  newly 
created  file  is  empty  (i.e.,  not  suitable  for  reading).  Stated 
more  simply,  AdaVAX  restricts  the  creation  of  files  to  those  of 
mode  OUT_FILE  or  INOUT_FILE. 

Processing  allowed  on  external  files  is  determined  by  the 
access  controls  set  by  the  owner  of  the  file  and  by  the  physical 
characteristics  of  the  underlying  device.  The  following 
restrictions  apply; 

a.  A  user  may  open  a  file  as  an  IN_FILE  only  if  that  user  has 
read  access  to  the  node.  A  user  may  open  a  file  as  an 
OUT_FILE  only  if  that  user  has  write  access  to  the  node. 
Finally,  a  user  may  open  a  file  as  an  INOUT^FILE  only  if  that 
user  has  read  and  write  access  to  the  node.*" 

b.  The  attempt  to  CREATE  a  file  with  the  mode  IN  FILE  is  not 
supported  since  there  will  be  no  data  in  the  Tile  to  read. 

c.  Multiple  OPENS  are  allowed  to  read  from  a  file,  but  all  OPENS 
to  write  require  exclusive  access  to  the  file.  The  exception 
USE_ERROR  is  raised  if  this  restriction  is  violated. 

d.  No  positioning  operations  are  allowed  on  files  associated 
with  a  printer  or  hard-copy  terminal .  The  exception 

USE  ERROR  is  raised  if  this  restriction  is  violated. 
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F . 11 . 4  Text  Input/ Output 

The  specification  of  TEXT  10  is  given  by  Section  14.3.10  of 
the  Ada  LRM.  TEXT_I0  is  invoiced  by  the  Ada  task  to  perform 
sequential  access  I/O  operations  on  text  files  (i.e.,  files  whose 
content  is  in  a  human-readable  form) .  TEXT_IO  is  not  a  generic 
package,  and  thus,  its  subprograms  may  be  invoked  directly  from 
the  Ada  task,  using  objects  with  base  type  or  parent  type  in  the 
language-defined  type  CHARACTER  (and  or  course  STRING)  .  TEXT_IC 
also  provides  the  generic  packages  INTEGER  10,  FL0AT_I0,  FIXED_IC 
and  ENUMERATI0N_I0  for  the  reading  and  writing  of  numeric  values 
and  enxameration  values.  The  generic  packages  within  TEXT_I0 
require  an  instantiation  for  a  given  element  type  before  any  of 
their  subprograms  are  invoked. 

The  implementation -defined  type  COUNT  that  appears  in  Secticr. 
14.3.10  of  the  Ada  LRM  is  defined  as  follows: 

type  COUNT  is  range  0 . . LONG_INTEGER ' LAST ; 

The  implementation-defined  subtype  FIELD  that  appears  in  Section 
14.3.10  of  the  Ada  LRM  is  defined  as  follows: 

subtype  FIELD  is  INTEGER  range  0. .INTEGER 'LAST; 

At  the  beginning  of  program  execution,  the  STANDARD_INPUT 
file  and  the  STANDARD  OUTPUT  file  are  open  and  associated  with 
the  ALS/N-supported  standard  input  and  output  files.  The 
STANDARD_INPUT  and  STANDARD_OUTPUT  file  cannot  be  deleted, 
attempts  to  do  so  raise  the~exception  USE  ERROR.  Additionally, 
if  a  program  terminates  before  an  open  fiXe  is  closed  (except  fcr 
STANDARD  INPUT  and  STANDARD_0UTPUT)  ,  then  the  last  line  the  user 
put  to  tKe  file  may  be  lost. 

A  program  is  erroneous  if  concurrently  executing  tasks 
attempt  to  perform  overlapping  GET  and/or  PUT  operations  on  the 
same  terminal.  Because  of  the  physical  nature  of  DecWriters  and 
Video  terminals,  the  semantics  of  text  layout  as  specified  in  Ada 
Language  Reference  Manual  Section  14.3.2  (especially  the  concepts 
of  current  column  number  and  current  line)  cannot  be  guaranteed 
when  GET  operations  are  interweaved  with  PUT  operations. 

Programs  that  rely  on  the  semantics  of  text  layout  under  those 
circumstances  are  erroneous. 

For  TEXT_IO  processing,  the  line  length  can  be  no  longer  than 
the  maximum  VAX/ VMS  record  length  minus  one  (i.e.,  255 
characters)  .  An  attempt  to  write  over  the  record  length  boundarv- 
will  result  in  writing  a  full  record  and  starting  a  new  record. 

An  attempt  to  set  the  line  length  through  SET_LINE_LENGTH  to  a 
length  greater  than  255  will  result  in  USB_ERR0R.  An  attempt  to 
read  a  file  with  a  line  length  greater  than  255  will  also  result 
in  a  USE  ERROR. 
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F.11.5  Sequential  Input/ Output 

The  specification  of  SEQUENTIAL_IO  is  given  in  Section  14.2.3 
of  the  Ada  LRM.  SEQUENTIAL_IO  is  invoked  by  the  Ada  cask  to 
perform  I/O  of  the  records  of  a  file  in  an  arbitrary  order.  The 
package  SEQUENTIAL_IO  requires  a  ^eneriv,  instantiation  for  a 
given  element  type  before  any  of  its  s\ibprograms  may  be  invoked. 
Once  the  package  SEQUENTIAL_IO  is  made  visible,  it  will  perform 
any  service  defined  by  the  subprograms  declared  in  its 
specification. 

The  following  restrictions  are  imposed  on  the  use  of  the 
package  Sequent ial_IO: 


a.  A  null  file  name  parameter  to  the  CREATE  procedure  (for 
opening  a  temporary  file)  is  not  appropriate,  and  raises  the 
exception  NAME_ERROR. 

b.  Writing  a  record  on  a  file  associated  with  a  tape  adds  the 
record  to  the  file  such  that  the  record  just  written  becomes 
the  last  record  of  the  file. 

c.  On  a  disk  or  tape,  the  DELETE  procedure  closes  the  file  and 
sets  its  size  to  zero  so  that  its  data  may  no  longer  be 
accessed. 

d.  The  subprogram  END_OF_FILE  always  returns  FALSE  for  a 
character-oriented'”device  and  RESET  performs  no  action  on  a 
character-oriented  device. 


F.11.6  Direct  Input/Output 

The  specification  of  DIRECT_IO  is  given  in  Section  14.2.5  of 
the  Ada  LRM.  DIRECT  10  is  invoked  by  the  Ada  task  to  perform  I/O 
of  the  records  of  a  Tile  in  an  arbitrary  order.  The  package 
DIRECT_I0  requires  a  generic  instantiation  for  a  given  element 
type  before  any  of  its  subproqrajBS  may  be  Invoked.  Once  the 
package  DIRECT_I0  is  made  visible,  it  will  perform  any  service 
defined  by  the  subprograms  declared  in  its  specification. 

The  implementation-defined  type  COUNT  that  appears  in  Section 
14.2.5  of  the  Ada  LRM  is  defined  as  follows; 

type  COUNT  is  range  0. .LONG_INTEGER'LASTr 
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F.11.7  Low  Level  Input/Output 

The  package  LOW_LEVEL_IO  defines  a  standard  interface  to 
allow  an  application  to  interact  directly  with  a  physical  device. 
LOW_^LEVEL  10  provides  a  definition  of  data  types  for  a  physical 
device  an9  data  to  be  operated  on,  along  with  the  standard 
procedures  SEND_CONTROL  and  RECEIVE_CX5NTR0L.  The  procedure 
SEND_^C0NTR0L  may  be  used  to  send  control  information  to  a 
physical  device.  RECEIVE_CONTROL  may  be  used  to  monitor  the 
execution  of  an  I/O  operation  by  requesting  information  from  a 
physical  device. 

with  SYSTEM; 

package  L0W_LEVEL_I0  is 

type  I0_BUFFER  ADDRESS  is  new  SYSTEM. ADDRESS ; 
type  I0_BUFFER"C0UNT  is  new  INTEGER; 
type  I0_TIME_0UT  is  new  INTEGER; 

type  IO_FUNCTION  is  ( 

read_data,  —  read  data 

write_data,  —  write  data 

initialize,  —  initialize  the  device  and 
—  return  the  device_code 
cancel,  —  cancel  10  request 

control) ;  —  return  control  information 

type  DEVICE  TYPE  is  new  LONG  INTEGER; 

DEVICElNAME_LENGTH:  constant  INTEGER  :*  32; 

type  IO_REQUEST_BLOCK  is  record 

REQUESTED_FUNCTION :  I0_FUNCTI0N ; 

DEVICE_NAME:  STRING  ( 1 ..  DEVICE  NAME  LENGTH); 

DEVICE:  DEVICE_TyPE; 

BUFFER_ADDRESS :  IO_BUFFER_ADDRESS  ; 

BUFFER_COUNT :  I0_BUFFER_C0UNT  ; 

TIME  OUT:  IO_TIME_OUT; 

end  recorH; 
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type  IO_RETURN_STATUS  is  ( 

ss_nonnal,  —  normal  completion 

ss_abort,  —  all  "failure"  status  codes 

ss_accvio , 

ss_devo  f  f 1 ine , 

ss~exquota , 

ss_illefc, 

ss_insfmem, 

ss_ivchan , 

ss~nopriv, 

ss_unasefc, 

ss_linkabort, 

ss_l inkdiscon , 

ss  jprotocol , 

ss_connecfail, 

ss_filalracc, 

ss_invlogin, 

ss_indevnam, 

ss_linkexit, 

ss_no links, 

ss_nosuchnode , 

ss_re j  ect , 

ss“remrsrc , 

ss__shut , 

ss”too®vchdata , 

ss”unreachable) ; 


type  IO_STATUS_BLOCK  is  record 

BYTE_COUNT:  IO_BUFFER  COUNT; 

RETURNED_STATUS :  IO_RETURN~STATUS ; 

end  record; 

procedure  SEND_CONTROL  (DEVICE:  in  DEVICE_TYPE; 

DATA:  in  out  IO_REQUEST_BLOCK)  ; 

procedure  RECEIVE_CONTROL  (DEVICE:  in  DEVICE_TYPE; 

DATA:  in  out  IO_STATUS_BLOCK)  ; 

end  LOW  LEVEL  10; 


F.12  System  Defined  Exceptions 

In  addition  to  the  exceptions  defined  in  the  Ada  Language 
Reference  Manual,  this  implementation  pre-defines  the  exceptions 
shown  in  Table  F-2  below. 
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1  Name 

Significance  | 

ACCESS_CHECK 

The  ACCESS  CHECK  exception  has  been 
raised  explicitly  within  the  program. 

DISCRIMINANT_CHECK 

DISCRIMINANT  CHECK  exception  has  been 
raised  explicitly  within  the  program. 

INDEX_CHECK 

The  INDEX_CHECK  exception  has  been 
raised  explicitly  within  the  program. 

LENGTH_CHECK 

The  LENGTH  CHECK  exception  has  been 
raised  expTicitly  within  the  prograun. 

RANGE_CHECK 

The  RANGE_CHECK  exception  has  been 
raised  explicitly  within  the  program. 

DIVISION_CHECK 

The  DIVISION  CHECK  exception  has  been 
raised  explicitly  within  the  program. 

OVEPJ’LOW_CHECK 

The  OVERFLOW_CHECK  exception  has  been 
raised  explicitly  within  the  prograun. 

ELABORATIOM__CHECK 

ELABORATION  CHECK  exception  has  been 
raised  explicitly  within  the  program. 

STORAGE_CHECK 

The  STORAGE  CHECK  exception  has  been 
raised  explicitly  within  the  prograun. 

UNRESOLVED_REFERENCE 

Attempted  call  to  a  routine  not  linked 
into  the  executable  image. 

SYSTEM_ERROR 

Serious  error  detected  in  underlying 
VAX/VMS  operating  system. 

Table  F-2  -  System  Defined  Exceptions 
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F.13  Machine  Code  Insertions 


The  Ada  language  definition  permits  machine  code  insertions 
as  described  in  Section  13.8  of  the  Ada  Language  Reference 
Manual.  This  section  describes  the  implementation  specific 
details  for  writing  machine  code  insertions  as  provided  by  the 
predefined  library  package  MACHINE_CODE . 

The  user  may,  if  desired,  include  MACRO  instructions  within 
an  Ada  program.  This  is  done  by  including  a  subprogram  in  the 
program  which  contains  only  record  aggregates  defining  machine 
code  instructions.  The  package  MACHINE_CODE ,  included  in  the 
system  program  library,  contains  type,  record  and  constant 
declarations  which  are  used  to  form  the  instr^ictions.  Each  field 
of  the  aggregate  contains  a  field  of  the  resulting  machine 
instruction.  These  fields  are  specified  in  the  order  in  which 
they  appear  in  the  actural  instruction.  Records  for  one-  and 
two-  byte  instruction  codes  are  available.  Each  instruction 
record  is  discriminated  using  the  instruction  code.  The  record 
components  determined  by  the  discriminant  are  the  arguments  of 
the  record.  Arguments  are  represented  using  records  whose 
discriminants  are  called  address  modes.  The  discriminant 
determines  what  additional  information  (if  any)  must  be 
associated  with  the  argximent.  Separate  records  are  available  for 
specifying  data. 


WITH  machine_code ; 

USE  machine  code; 

FUNCTION  fixed  multiply 

(multiplier"!  :  IN  LONG  INTEGER; 
multiplier"2  ;  IN  L0NG"INTEGER  ; 
scaling_factor  :  IN  LONG^INTEGER 
)  RETURN  LONG_INTEGER  IS 
BEGIN 

—  EMUL  RO,  Rl,  #0,  RO 
—  named  aggregate  notation 
byte_op_code 

(op  =>  emul, 
emul_l  =>  long_word_general_operand(op  => 
emul_2  =>  long_word_general_operand(op  => 
emul_3  =>  long_word_general_operand(op  => 
emul_4  =>  quad_word_general_operand{op  => 
—  ASHQ  R2,  RO,  RO 


—  in  RO 

—  in  Rl 

—  in  R2 

—  in  RO 


—  positional  notation 
byte_op__code 
(ashq, 

byte_word_general_operand ( op  =>  R2 ) , 
quad_word_general_operand ( op  =>  RO) , 
quad_word_general_operand (op  =>  R2 ) ) ; 
END  fixed_multiply ; 


RO)  , 
Rl)  , 
LO)  , 
RO)  )  ; 


Note  that  either  positional  or  named  aggregates  may  be  used. 
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ALS/N  supports  machine  code  insertions  through  calls  to 
procedures  whose  bodies  are  composed  of  sequences  of  assembly 
language  instructions.  Each  instruction  in  the  sequence  is 
specified  as  an  aggregate  of  either  the  record  type  ByTE_OP_CODE 
or  WORD  OP^CODE,  both  declared  in  the  Runtime  Support  Library 
package~'MAraiNE_COOE .  These  types  are  variant  records  whose 
discriminant  is  a  symbolic  VAX^-ll  instruction  opcode.  Components 
of  each  discriminated  record  correspond  to  the  instruction 
operands  appropriate  to  a  given  instruction  opcode.  Components 
of  BYTE_^OP_CODE  and  WORD_OP_CODE  are  themselves  variant  records. 
Their  discriminated  components  are  used  to  specify  operand 
addressing  modes  together  with  needed  registers,  displacements 
and  literal  values.  The  type  mark  BYTE__OP_CODE  is  used  for  those 
VAX-11  instructions  whose  opcodes  can  be  represented  in  a  single 
byte  (e.ij.,  MOVL)  .  WORD_OP_CODE  is  used  for  those  VAX-11 
instructions  whose  opcodes  consume  two  bytes  (e.g.,  CMPH) . 

These  ideas  are  illustrated  in  Figure  F-1  below.  A  more 
detailed  explanation  of  how  machine  code  insertions  are  composed 
for  the  VAX  target  is  given  in  section  6.14.  In  this  example  the 
procedure  TIMES_TWO  is  used  to  double  integer  valued  objects.  It 
effects  a  multiplication  of  its  single  argument  using  the 
Arithmetic  Shift  Logical  instruction,  ASHL.  The  value  to  be 
multiplied  is  passed  by  reference  to  the  procedure  TIMES_TWO  and 
can  be  found  four  bytes  away  from  the  address  held  in  the 
Argument  Pointer,  AP.  Using  byte  displacement  deferred 
addressing  mode  (i.e.,  IB^AP)  to  access  the  procedure  argument 
allows  the  shift  by  one  bXt  to  occur  "in  place". 
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with  MACHINE_CODE  ;  use  MACHINE_CODE  ; 

procedure  TIMES_TWO (value  ;  IN  OUT  integer)  is 
begin 

BYTE_OP  CODE' ( 


OP  -> 

ASHL, 

--  Instruction 

-  ASHL 

ASHL  1  -> 

( 

OP  -> 

IMD,  B 

_IMD  ->  1  ) , 

-  -  Operand 

1  - 

"#1" 

ASHL  2  -> 

( 

OP  -> 

IB  AP." 

'byte  DISP  -> 

4). 

--  Operand 

2  - 

(a4(AP) 

ASHL  3  -> 

/ 

K 

OP  -> 

IB~AP, 

BYTE  DISP  -> 

4)  ) 

Operand 

3  - 

"(a4(AP) 

end  T1MES_TW0  ; 

Figure  F-1  -  Machine  Code  Insertion 
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F.13.1  Machine  Features 

This  paragraph  describes  specific  machine  language  features 
needed  to  write  code  statements.  These  machine  features  include 
the  DISP  and  ADDRESS  attributes  and  the  address  mode  specifiers. 
The  address  mode  specifiers  make  it  possible  to  describe  both  the 
address  mode  and  register  nximber  of  any  operand  as  a  single  value 
by  mapping  these  values  directly  onto  the  first  byte  of  each 
operand.  The  following  is  an  eniimeration  of  all  mode  specifiers: 


The  first  64 

are  the  short  literal  modes. 

These  mode  specifiers  signify 

(short 

literal 

mode, 

value) 

combinations . 

The  values  are 

in  the 

range  0 

to  63 

• 

LO, 

LI, 

L2, 

L3, 

L4, 

L5, 

L6, 

L7, 

L8, 

L9, 

LIO, 

Lll, 

L12, 

L13, 

L14, 

L15, 

L16, 

L17, 

L18, 

L19, 

L20, 

L21, 

L22, 

L23, 

L24, 

L25, 

L26, 

L27, 

L23, 

L29, 

L30, 

L31, 

L32, 

L33, 

L34, 

L35, 

L36, 

L37, 

L38, 

L39, 

L40, 

L41, 

L42, 

L43, 

L44, 

L45, 

L46, 

L47, 

L48, 

L49, 

L50, 

L51, 

L52, 

L53, 

L54, 

L55, 

L56, 

L57, 

L58, 

L59, 

L60, 

L61, 

L62, 

L63, 

F.13.1  Machine  Features 


F-29 


Version  4.5 

ALS/N  Reference  Handbook 

29 

March  1991 

— 

Next  are  the  (index  mode,  register) 

combinations. 

X  RO, 

X  Rl, 

X  R2, 

X  R3, 

X  R4, 

X  R5, 

X  R6, 

X  R7, 

X  R8, 

X  R9, 

X  RIO, 

X  Rll, 

X_AP, 

X_FP, 

X  SP, 

X  PC, 

— 

The  following 

are 

the 

(register  mode 

,  register)  combinations. 

RO, 

Rl, 

R2, 

R3, 

R4, 

R5, 

R6, 

R7, 

R8, 

R9, 

RIO, 

Rll, 

AP, 

FP, 

SP, 

PC, 

The  following 

are 

the 

(indirect  register  mode,  register) 

—  — 

combinations. 

IRQ, 

IRl, 

IR2, 

IR3, 

IR4, 

IRS, 

IRS, 

IR7, 

IR8, 

IR9, 

IRIO, 

IRll, 

lAP, 

IFP, 

ISP, 

IPC, 

Next  are  the  (autodecrement  register 

mode,  register) 

—  — 

combinations. 

DEC  RO, 

DEC  Rl, 

DEC  R2, 

DEC  R3, 

DEC"R4 , 

DEC  R5, 

DEC  R6, 

DEC  R7, 

DEC"R3 , 

DEC  R9, 

DEC  RIO, 

DEC  Rll, 

DEC“AP, 

DEC  FP, 

DEC  SP, 

DEC_PC , 

Next  are  the  (autoincrement  register  mode,  register) 

— 

combinations. 

IMD 

(immediate  mode)  is  autoincrement 

—  — 

mode  using  the 

PC 

• 

RO  INC, 

Rl  INC, 

R2  INC, 

R3  INC, 

R4  INC, 

R5  INC, 

R6  INC, 

R7  INC, 

R8  INC, 

R9  INC, 

RIO  INC, 

Rll  INC, 

AP_INC, 

FP_INC, 

SP_INC, 

IMD, 

The  following 

are 

the 

( autoincrement 

deferred  mode. 

register) 

— 

combinations . 

A 

(absolute  address  mode)  is  autoincrement 

-- 

deferred  using 

the  PC. 

IRO  INC 

/ 

IRl  INC, 

IR2  INC, 

IR3  INC, 

IR4  INC 

IRS  INC, 

IRS  INC, 

IR7  INC, 

IRS'INC 

IR9  INC, 

IRIO  INC, 

IRll  INC, 

IAP_INC 

/ 

IFP  INC, 

ISP  INC, 

A, 

F- 

30 
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—  The  following  are  the  (byte-displacement  mode,  register) 

—  combinations.  B_PC  is  byte-relative  mode  for  the  PC. 

B_R1 ,  B_R2 ,  B_R3  , 

B_R5 ,  B_R6 ,  B_R7  , 

B_R9,  B_R10,  B_R11, 

B_FP,  B_SP,  B_PC, 

—  Next  are  the  (byte-displacement  deferred  mode,  register) 

—  combinations.  IB_PC  is  byte-relative  deferred  mode  for 

—  the  PC. 


B  RO, 
B“‘R4, 
B”R8, 
B"AP, 


IB_RO , 
IB_R4 , 
IB_R8 , 
IB_AP, 


IB_R1, 
IB_R5, 
IB_R9 , 
IB_FP, 


IB_R2 , 
IB_R6 , 
IB_R10, 
IB_SP, 


IB_R3 , 
IB_R7 , 
IB_R11, 
IB_PC, 


—  The  following  are  the  (word-displacement  mode,  register) 

—  combinations.  W  PC  is  word  relative  mode  for  the  PC. 


W_RO, 
W  R4, 
W“R8, 
W  AP, 


W  Rl,  W_R2,  W_R3, 

W~R5 ,  W_R6 ,  W_R7 , 

W  R9,  W_R10,  W_R11, 

W~FP,  W  SP,  W_PC, 


—  The  following  are  the  (word-displacement  deferred  mode, 

—  register)  combinations.  IW_PC  is  word  relative  deferred 

—  mode  for  the  PC. 


IW_RO , 
IW_R4 , 
IW_R8 , 
IW_AP, 


IW_R1, 
IW_R5 , 
IW_R9 , 
IW_FP, 


IW_R2 , 
IW_R6 , 
IW_R10, 
IW_SP, 


IW_R3 , 
IW_R7 , 
IW_R11, 
IW_PC, 


—  Next  are  the  (longword-displacement  mode,  register) 
~  combinations.  L_PC  is  longword-relative  mode. 

L_RO ,  L^Rl ,  L_R2  , 

L_R4  ,  L_R5 ,  L_R6 , 

L_R8  ,  L_R9 ,  L_R10 , 

L_AP,  L_FP,  L_SP, 


L_R3, 

L_R7, 

L_R11, 

L_PC, 


—  The  following  are  the  (longword-displacement  deferred  mode, 

—  register)  combinations.  IL_PC  is  longword-relative  deferred 

—  mode. 


IL_RO , 
IL_R4 , 
IL  R8, 
IL“AP, 


IL_R1, 
IL_R5, 
IL_R9 , 
IL_FP, 


IL_R2 , 
IL_R6, 
IL_R10, 
IL_SP, 


IL_R3 , 
IL_R7 , 
IL_R11, 
IL_PC)  ; 
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F.13.2  ADDRESS  and  DISP  Attributes 

The  following  restriction  applies  to  the  use  of  the  ADDRESS 
and  DISP  attributes: 


a.  All  displacements  and  addresses  (i.e.,  branch  destinations, 
program  counter  addressing  mode  displacements,  etc.)  must  be 
static  expressions. 

b.  Since  neither  the  ADDRESS  nor  the  DISP  attributes  return 
static  values,  they  can  not  be  used  in  code  statements  within 
the  Ada  compilation  unit. 


F.13.3  Restrictions  on  Assembler  Constructs 

These  unsupported  Assembler  constructs  within  the 

MACHINE_CODE  package  are  as  follows: 

a.  The  VAX/VMS  assembler's  capability  to  compute  the  length  of 
immediate  and  literal  data  is  not  replicated  in  MACHINE  CODE. 
This  means  the  user  cannot  supply  a  value  without  specifying 
the  length  of  that  value.  This  disallows  the  assembler 
operand  general  formats:  D(R) ,  G,  G^G,  Icons,  #cons[Rx], 
D(R)[RX],  G[RX],  G^ location [RX] ,  §D(R)[RX],  @G[RX],  eD(R),  @G 
such  that  D  and  G  are  byte,  word,  or  lQng_^word  values. 
Operands  must  contain  address  mode  specifTers  which 
explicitly  define  the  length  of  any  immediate  or  literal 
values  of  that  operand. 

b.  The  radix  of  the  assembler  notation  is  decimal.  To  express  a 
hexadecimal  literal,  the  notation  16#literal#  should  be  used 
instead  of  ^X. 

c.  To  construct  an  octaword,  quadword,  g_float  or  h_float 
number,  it  is  important  for  the  user  to  remember  that  the 
component  fields  of  the  records  that  make  up  the  long  numeric 
types  are  signed.  This  means  that  the  user  must  take  care  to 
be  assured  that  the  values  for  these  components,  although 
signed,  are  interpreted  correctly  by  the  instruction  set 
architecture. 

d.  Edit  instiruction  streams  must  be  constructed  through  the  use 
of  the  VAX  data  statements  described  in  Section  6.12.3. 
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e.  Compatibility  mode  instruction  streams  must  be  constructed 
through  the  use  of  the  VAX  data  statements  described  in 
Section  6.12.3,  if  still  supported  on  the  VAX  computer  being 
utilized  as  the  target  machine  (i.e.,  VAX-11/780  and  785,  but 
not  the  VAX-8600) . 

f.  No  error  messages  are  generated  if  the  PC  is  used  as  the 
register  for  operands  taking  a  single  register,  if  the  S?  or 
PC  are  used  for  operands  taking  two  registers,  or  if  the  AP, 
FP,  SP,  or  PC  is  used  for  operands  taking  four  registers. 

g.  No  error  message  is  generated  if  the  PC  is  used  in  register 
deferred  or  autodecrement  mode. 

h.  If  any  register  other  than  the  PC  is  used  as  both  the 
simple_operand  and  as  the  index_reg  for  an  operand  (see 
Section  6.14.1.2  for  definitions  of  simple_operand  and 
index_reg) ,  no  error  message  is  generated.  An  example  of 
this  case  is  the  VAX  Assembler  operand  (7)  [7]. 

i.  Generic  opcode  selection  is  not  supported.  This  means  the 
opcode  which  reflects  the  specified  number  of  operands  must 
be  used.  For  example,  for  2  operand  word  addition,  ADDW2 
must  be  used,  not  just  ADDH. 

j .  The  PC  is  not  supplied  as  a  default  if  no  register  is 
specified  in  an  operand.  The  user  must  supply  the  mode 
specifier  which  is  mapped  onto  the  PC.  Examples  are  IMD,  A, 
B_PC,  W_PC,  etc. 
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F.14  Machine  Instructions  and  Data 

This  section  describes  the  syntactic  details  for  writing  code 
statements  (machine  code  insertions)  as  provided  for  the  by 
the  pre-defined  package  MACHINE_CODE .  The  format  for  writing 
code  statements  Is  detailed,  as  are  descriptions  of  the  values  to 
be  supplied  in  the  code  statements.  Each  value  is  described  by 
the  named  association  for  that  value  and  its  defined  in  the  order 
in  which  it  must  appear  in  positional  notation.  The  programmer 
should  refer  to  the  VAX-11  Architecture  Handbook  along  with  this 
section  to  ensure  that  the  machine  instructions  are  correct  from 
an  architectural  viewpoint. 

To  ensure  a  proper  interface  between  Ada  and  machine  code 
insertions,  the  user  must  be  aware  of  the  calling  conventions 
used  by  the  Ada  compiler. 


F.14.1  VAX  Instructions 

The  general  format  for  VAX  code  statements  where  the  opcode 
is  a  one  byte  opcode  is 

BYTE  OP_CODE  (OP  =>  opcode  {, "opcode”  1  =>  operand 
~  { , "opcode^_2  =>  operand 

{, "opcode"  3  =>  operand 
{ , "opcode^  4  =>  operand 
{ ,  "opcode'*''^  5  *>  operand 
{ ,  "opcode'*^_6  =>  operand })}}})); 

The  general  format  for  VAX  code  statements  where  the  opcode 
is  a  two  byte  opcode  is 

WORD_OP_CODE  (OP  =>  opcode2  {,"opcode2"  1  =>  operand 

{ , "opcode2^_2  =>  operand 
{,"opcode2"  3  =>  operand 
{ , "opcode2^_4  =>  operand 
(,"opcode2"  5  =>  operand 
{ ,  "opcode2^;_6  =>  operand) )})))); 

where  "opcode"_n  and  "opcode2"_n  is  the  result  of  the 
concatenation  of  the  VAX  opcode,  an  underscore,  and  the  position 
of  the  operand  in  the  VAX  instruction.  The  BYTE_OP  CODE  and 
W0RD_0P_C0DE  statements  always  require  an  opcode  and  may  include 
from  one  to  six  operands.  The  opcode  mnemonics  are  precisely  the 
same  as  described  in  the  previously  referenced  VAX-11 
Architecture  Handbook.  The  VAX  address  modes  divide  the  operands 
into  six  general  categories;  Short  Literal  Operand,  Indexed 
Operand,  Register  Operand,  Byte-Displacement  Operand, 
Word-Displacement  Operand,  and  Long_Word-Displacement  Operand. 
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F. 14. 1.1  Short  Literal  Operands 

The  VAX/VMS  Assembler  format  for  short  literal  operands  is 
Icons 

where  cons  is  an  integer  constant  with  a  range  from  0  to  63 
(decimal) . 

The  code  statement  format  for  short  literal  operands  is 
(OP  =>  short_lit) 

where  short_lit  is  one  of  the  enumerated  values,  range  LO  to  L63, 
of  the  address  mode  specifiers  in  Section  6.11.1. 

The  following  are  examples  of  how  some  VAX  Assembler  short 
literals  would  be  expressed  in  code  statements: 

S^#7  becomes  (OP  =>  L7) 

S^i33  becomes  (OP  =>  L33) 

S^#60  becomes  (OP  =>  L60) 

(For  explanations  of  named  and  unnamed  component  association,  see 
Section  4.3  of  the  Ada  Language  Reference  Manual.) 


F . 14 . 1 . 2  Indexed  Operands 

The  VAX/VMS  Assembler  format  for  the  indexed  operands  is 
s imple_operand ( Rx ] 

where  a  simple_operand  is  an  operand  of  any  address  mode  except 
register,  literal,  or  index. 

The  general  code  statement  format  for  indexed  operands  is 

(index_reg,  simple_operand)  or 

(OP  =>  index_reg,  OPND  =>  simpie_operand) 

where  index_reg  is  one  of  the  enumerated  address  mode  specifiers, 
range  X_RO  to  X_SP,  from  Section  6.11.1.  S imp le_ope rand  is  an 
operand  of  any  address  mode  except  register,  literal,  or  index. 
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For  example,  the  following  are  indexed  assembler  operands: 

a.  (R8)[R7]  becomes  (X_R7,  (OP  =>  IR8)) 

b.  {R8)+[R7]  becomes  (X_R7,  (OP  =>  R8_INC) ) 

c.  I^#600[R4]  becomes  (X_R4,  (IMD,600)) 

d.  -(R4)[R3]  becomes  (X_R3,  (OP  =>  DEC_R4)) 

e.  B^4(R9)[R3]  becomes  (X_R3,  {B_R9,4)) 

f.  W^800(R8)  [R5]  becomes  (X_R5,  (W_R8,800)) 

g.  L^34000(R8) [R4]  becomes  (X_R4 , (L_R8 , 34000)  ) 

h.  B^10[R9]  becomes  (X_R9,  (B_PC,10)) 

i.  W^130[R2]  becomes  (X_R2,  (W_PC,130)) 

j.  L''35000[R6]  becomes  (X_R6,  (L_PC,  35000)  ) 

k.  @(R3)+[R5]  becomes  (X_R5,  (OP  =>  IR3_INC) ) 

l.  @#1432[R5]  becomes  (X_R5,  (A, 1432)) 

m.  @B^4(R9)CR3]  becomes  (X_R3,  IB_R9,4)) 

n.  @W*8(R8)[R5]  becomes  (X_R5,  (IW__R8,8)) 

o.  @L^2(R8)[R4]  becomes  (X_R4,  (IL_R8,2)) 

p.  §B^3[R1]  becomes  (X_R1,  (IB_PC,3)) 

q.  @W''150[R2]  becomes  (X_R2,  (IW_PC,150)) 

r.  @L^100000[R3 ]  becomes  (X_R3,  (IL_PC, 100000) ) 
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Then  would  be  expressed  in  neuned  notation  as: 


a. 

(OP 

=> 

X_R7, 

OPND 

a> 

(OP  =*> 

IR7)) 

b. 

(OP 

=> 

X_R7, 

OPND 

*> 

(OP  => 

R8_INC) ) 

c. 

(OP 

=> 

X_R4, 

OPND 

=> 

(OP  »> 

DtD,  W_IMD  =>  600)) 

d. 

(OP 

=> 

X_R3, 

OPND 

=> 

(OP  *> 

DEC_R4 ) ) 

e. 

(OP 

=> 

X_R3, 

OPND 

=> 

(OP  => 

B_R9,  ByTE_DISP  =>  4) ) 

f . 

(OP 

=»> 

X_R5, 

OPND 

=> 

(OP  => 

W_R8,  WORD_DISP  =>  800)) 

g- 

(OP 

■=> 

X_R4, 

OPND 

=> 

(OP  =>  L  R8, 

LONG_WORD_DISP  =>  34000) ) 

h. 

(OP 

=> 

X_R9, 

OPND 

=  > 

(OP  => 

B_PC,  BYTE_DISP  =>  10)) 

i. 

(OP 

=> 

X_R2, 

OPND 

=  > 

(OP  => 

W_PC ,  WORD_DIS  P  =  >  130)) 

j  • 

(OP 

=> 

X__R6, 

OPND 

=> 

(OP  =>  L  PC, 

LONG_WORD_DISP  =>  35000) ) 

k. 

(OP 

=> 

X_R5, 

OPND 

=> 

(OP  *> 

IR3_INC) ) 

1. 

(OP 

=> 

X_R5, 

OPND 

=  > 

(OP  => 

A,  ADDR  *>  1432)) 

a. 

(OP 

X_R3, 

OPND 

»> 

(OP  => 

IB_R9,  BYTE_DISP  =>4)) 

n. 

(OP 

=> 

X_R5, 

OPND 

=> 

(OP  => 

IW_R8,  WORD_DISP  =>  8) ) 

o. 

(OP 

=> 

X_R4, 

OPND 

=  > 

(OP  =>  IL  R8, 

LONG_WORD_DISP  =>  2) ) 

P- 

(OP 

=> 

X_R1, 

OPND 

=  > 

(OP  => 

IB_PC,  B_DISP  =>  3)) 

q- 

(OP 

=> 

X_R2, 

OPND 

=> 

(OP  => 

IW_PC,  WORD_DISP  =>  150)) 

r. 

(OP 

=> 

X_R3, 

OPND 

=  > 

(OP  =>  IL  PC, 

LONG_WORD_DISP  =>  100000) ) 
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F. 14. 1.3  Register  Operands 

The  VAX/VMS  Assembler  formats  for  register  operands  are 

Rn  —  Register  mode 
(Rn)  —  Register  deferred  mode 
-(Rn)  ~  Autodecrement  mode 

(Rn)+  —  Auto  increment  mode 

§  (Rn)  +  —  Autoincrement  deferred  mode 

where  Rn  represents  a  register  numbered  from  0  to  15. 

The  general  code  statement  format  for  register  operands  is 

(OP  =>  regmode_value) 

where  regmode_value  represents  one  of  the  enumerated  address  mode 
specifier  range  RO  to  PC,  from  Section  6.11.1. 

The  following  are  examples  of  how  VAX/VMS  Assembler  register 
mode  operands  would  be  written  as  code  statements: 

R7  becomes  (OP  =>  R7) 

(R8)  becomes  (OP  =>  IRS) 

-(R9)  becomes  (OP  =>  DEC_R9) 

(Rl)+  becomes  (OP  =*>  R1_INC) 

§(R3)+  becomes  (OP  =»>  IR3_INC) 


F. 14. 1.4  Byte-Displacement  Operands 

The  VAX/VMS  Assembler  syntax  for  the  byte-displacement 
operands  is 

B^d(Rn)  —  Byte-displacement  mode 

@B^d(Rn)  —  Byte-displacement  deferred  mode 

where  d  is  the  displacement  added  to  the  contents  of  register  Rn. 
If  no  register  is  specified,  the  program  counter  is  assximed.  The 
code  statement  general  format  for  the  byte-displacement  and 
byte-displacement  deferred  modes  is 

(byte_disp_spec,  value) 

or 

(OP  =>  byte_disp_spec,  BYTE_DISP  =>  value) 

where  byte_disp_spec  is  one  of  the  enumerated  address  mode 
specifiers,  range  B  RO  to  B_PC  for  byte-displacement  or  IB_RO  to 
IB_PC  for  byte  displacement  deferred,  from  Section  6.11.1.  Value 
is  in  the  range  -128  to  127. 
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The  following  are  examples  of  how  VAX/VMS  Assembler 
byte-displacement  operands  would  be  written  in  code  statements: 


B''4  (R5) 

becomes 

(B_R5, 

4) 

or 

(OP  »> 

B  R5, 

BYTE 

_DISP 

=> 

4) 

B''200(R5) 

becomes 

(B_R5, 

200) 

or 

(OP  -> 

B  R5, 

BYTE 

,DISP 

=> 

200) 

B^33 

becomes 

(B_PC, 

337 

or 

(OP  =»> 

B  PC, 

BYTE_ 

_DISP 

=> 

33) 

@B^4(R5) 

becomes 

(IB  R5, 

4) 

or 

(OP  => 

IB  R5, 

BYTE_ 

.DISP 

=> 

4) 

§B^200(R5) 

becomes 

(IB  R5, 

200) 

or 

(OP  => 

IB  R5, 

BYTE_ 

,DISP 

=> 

200) 

§B^33 

becomes 

(IB  PC, 

33) 

or 

(OP  => 

IB  PC, 

BYTE_ 

.DISP 

=> 

33) 

F . 14 . 1 . 5  Word-Displacement  Operands 

The  VAX/VMS  Assembler  syntax  for  the  word-displacement 
operands  are 

W^d(Rn)  —  Word-displacement 

gW-^dCRn)  —  Word-displacement  deferred 

where  d  is  the  displacement  to  be  added  to  the  contents  of 
register  Rn.  If  no  register  is  specified,  the  program  counter  is 
assximed.  In  code  statements,  word  displacement  operands  are 
represented  in  general  as 

(word_disp_spec,  value) 

or 

(OP  =>  word_disp_spec,  WORD_DISP  =>  value) 

where  word_disp_spec  is  one  of  the  enumerated  address  mode 
specifiers,  range  W_RO  to  W_PC  for  word-displacement  mode  or 
IW_R0  or  IW  PC  for  word-displacement  deferred  mode,  from  Section 
6.11.1.  VaTue  is  in  the  range  -2**15  to  2**15  -  1. 

The  following  are  examples  of  how  VAX/VMS  Assembler 
word-displacement  operands  would  be  written  in  code  statements: 

W^10(R5)  becomes  (W_R5,  10)  or 

(OP  =>  W  R5,  WORD_DISP  =>  10) 

W^20  becomes  (W_PC,  2 Of  or 

(OP  »>  W_PC  W0RD_DISP  =>  20) 

@W^128(R7)  becomes  (W  R7,  128)  or 

(OP  *>  IW  R7  WORD_DISP  =>  128) 

§W''324  becomes  (W_PC,  3247  or 

(OP  ->  IW_PC  W0RD_DISP  =>  32  4) 
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F .  14 . 1 . 6  Long_Word-Displaceinen‘t  Operetnds 

The  VAX/VMS  Assembler  general  formats  for  the 
long__word-displacement  operands  is 

L''d(Rn)  --  Long_word-displacement 

§L''d(Rn)  —  Iiong_word~displacement  deferred 

where  d  is  the  displacement  to  be  added  to  the  register 
represented  by  Rn.  Long_word-displacement  operands  are 
represented  in  code  statements  by  the  general  format 

{lword_disp_spec,  value) 

or 

(OP  *>  lword_disp_spec,  LONG_WORD_DISP  =>  value) 

where  lword_disp_spec  is  one  of  the  enumerated  address  mode 
specifiers,  range  L  RO  to  L  PC  for  long_word-displacement  mode  or 
IL_R0  to  IL_PC  for  long  wor3-displacenent  deferred  mode,  from 
Section  6.11.1.  Value  is  in  the  range  -2**31  to  2**31  -  1. 

The  following  are  examples  of  how  VAX/VMS  Assembler 
long_word-displacement  operands  would  be  written  in  code 
statements: 


L^1000(R7) 

becomes 

L^25000 

becomes 

@L^1000(R9) 

becomes 

@L^3500 

becomes 

(L_R7,  1000)  or 

(OP  L  R7,  LONG  WORD  DISP  *>  1000) 
(L_PC,  25000)  or  " 

(OP  *>  L_PC,  LONG_WORD  DISP  *>  25000) 
(IL  R9,  1000)  or 

(OP  =>  IL_R9,  LONG__WORD_DISP  =>  1000) 
(IL_PC,  3500)  or 

(OP  *>  IL_PC,  LONG_WORD_DISP  =>  3500) 


F.14.2  The  CASE  Statement 

The  VAX  case  statements  (mnemonics  CASES,  CASEW,  eind  CASEL) 
have  the  following  general  symbolic  form 

opcode  selector. rx,  base.rx,  limit. rx, 

displ[oi.bw,  ..  ,  displ[limit] .bw 

where  x  is  dependent  upon  the  opcode  as  to  whether  the  operand  is 
of  type  BYTE,  WORD,  or  IiONG_WORD.  Displ[0].bw,  ..  , 

displ [limit ]  .bw  is  a  list  of  displacements  to  which  to  branch. 
Case  statements  would  be  written  as  code  statements  as: 
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BYTE_OP_CODE  (OP  =>  case  opcode,  "case_opcode"_l=>  operand, 
~  "case_opco3e'*  2  =>  operand, 

"case_opcode''^_3  =>  case_operand) 

where  case  opcode  is  one  of  CASEB,  CASEW,  or  CASEL.  The  type  of 
operand  anS  case  operand  are  as  indicated  in  the  opcode  (BYTE, 
WORD,  or  LONG_WORD) .  A  case_operand  is  a  special  case  operand  of 
the  form: 

case_operand  =>  (case_li3nit_address_mode,  (case_enuin) ) 

or 

case_operand  =>  (LIMIT  =>  case_liinit_address_mode, 
~(CASES=>case_enum) ) 

if  case_liinlt_address  mode  is  one  of  the  short  literal  address 
specifiers  If  case_Timit_address_node  is  the  node  specifier 
IMD,  the  case_operand  takes  the  form: 

case_operand  =>  (IMD,  {case_limit,  (case_enum) ) ) 

or 

case_operand  =>  (LIMIT  =>  IMD,  CASE_LIST  => 

“(LIMIT  =»>  case_limit,  (CASES  =>  case_enum) ) ) 

where  case_operand  is  one  of  BYTE_CASE_OPERAND, 

WORD_CASE_OPERAND,  or  LONG_WORD_CASE_OPERAND .  The 
case”liinit_address_mode  is“one  of  the  short  literal  mode 
specif iers^or  the  mode  specifier  IMD.  Case  enum  is  a  list  of 
branch  addresses.  The  branch  addresses  mus€  be  of  type  WORD. 

The  case_limit  is  a  value  of  the  type  indicated  by  the 
case_opcode. 

Some  examples  of  case  statements  written  as  code  statements 

are: 

«START»  BYTE_OP_CODE( CASEB,  (OP  =>R3 ,  (IMD,  5),  (IMD 

(2,(15,30,45)))));  —  Case  statement  using 

—  immediate  mode. 

S2  BYTE  OP_CODE( CASEW,  (OP  =>  (W_PC,  10)),  (IMD,  100), 

TL2, (10,20, 30) ))  ;  —  Case  statement  using 

—  short  literal  mode. 
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F.14.3  VAX  Data 

Constant  values  such  as  absolute  addresses  or  displacements 
may  be  entered  into  the  code  stream  with  any  of  these  nine 
statements : 

BYTE_VALUE ' ( byte ) 

WORD_VALUE ' ( word) 

IiONG_WORD_VALUE'  (long_word) 

QUADWORD_VALUE^  (quadword) 

OCTAWORD_VALUE '  (octaword) 

FLOAT_VALUE' (float) 

LONG_FLOAT_VALUE^  {long_float) 

G_FLOAT_VALUE  ^  (g_float) 

H_FLOAT_VALUE' (h  float) 
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